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ABSTRACT 



This project serves qs a prototype of an automated 
nursing care system. The project contains three main 
components: nursing diagnosis, nursing care plans, and 
patient classification. The objective of this project is 
to marry the above three nursing elements into a single 
integrated system. 

The program requires validation for access and patient 
admission capability. Doctor’s orders and nurse’s orders 
comprise major inputs for determining the elements of 
patient care. Patient care functions carry weighted 

qualifiers which input to calculate the patiBnt 
classification . 

The project uses dBase III to manage the database 
functions and Exsys to calculate patient classification. 
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I. INTRODUCTION 

The appropriate time to assess the nurse's automation 
needs is when a hospital-wide system is being proposed. 

The Navy Nurse Carps is currently in this unique position. 

A Mission Element Needs Statement proposed the creation of 
the Composite Health Care System in 1373. A formal Request 
For Proposal allowed vendors to bid for the implementation 
of the system in 1385. The Composite Health Care System 
calls for a phased implementation process with phase one 
scheduled to begin in 1386. Inpatient activities, 
including the areas addressed in this project, occur in 
phase two. The Navy Nurse Corps faces a system 
implementation imminently. Timing dictates that the Nurse 
Corps seek prototypes of automated systems that best serve 
its needs. 

This project serves as a prototype of an automated 
nursing care system. The project contains three main 
components: nursing diagnosis, nursing care plans, and 
patient classification. The objective of this project is 
to marry the above three nursing elements into a single 
integrated system. Meeting the abjective necessitates the 
inclusion of the doctor’s orders. The doctor’s orders, in 
combination with the nurses ’s orders, reflect the 
independent, dependent and interdependent activities of 
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nursing. The combined orders serve as the foundation for 
the nursing care plan and the patient classification 
system. Departmental interfaces demand inclusion in the 
design of any nursing care software package. 

To provide a realistic setting, the program requires 
validation for access and patient admission capability. 

The validation for entry is a necessity to safeguard 
patient information from unauthorized access and invasion 
of privacy. Patient admission capability allows for 
identifying and testing different patiBnt scenarios. 

This prototype project gives a partial operational 
solution to the planning model proposed by Rieder and 
Norton in ”An Integrated Nursing Information System - A 
Planning flodel . ” Reider and Norton state, 

the processing step of classifying patients could be 
fully automated. The computer could process patient 
information and determine each patient’s acuity category 
from the Critical Indicator parameters stored within 
the system. As orders and plans of care change, the 
computer also will update each patient’s acuity category 
and display the results on demand. Cl: 783 

This program plans to show one way of automating the 

patient classification system using nursing diagnosis and 

patient care plans. 
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1 1 . PROJECT INITIATION ACTIVITIES AND BACKGROUND 



This software project fallows thB outline presented by 

Pressman CE3 and found in the GSA Office of Software 

Development publication "Establishing A Software 

Engineering Technology CSETD.” In this publication, the 

Federal Software Testing Center describes SET as: 

Software engineering is sometimes referred to as the 
discipline that brings order to the software development 
process. C3:3J 

This software development effort concentrates on the first 

threB of six software lifB cyclB stages outlined by SET. 
These steps are requirement definition and analysis, 
design, and programming. The final three stages of 
validation, operation and review remain for a follow-on 
project . 

A . SCOPE 

This software product limits its application to an in- 
hospital medical-surgical environment. The emphasis is on 
automating the nursing care plan activities driven by 
nursing diagnosis. The patient classification system uses 
an expert system for automation. Automating the nursing 
care plan activity holds potential for improving 
documentation, resulting in better patient care. 

Automating the patient classification system provides far 
consistency and accuracy in assigning paints far all 
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patient care parameters. This provides for easy, rapid 
classification of patients giving the decision makers 
necessary and timely information to make effective staffing 
assignments . 

B. CONPUTER/COMPUT ING CONSTRAINTS 

1 . Hardware 

The computer hardware chosen for this project is 
the IBN-PC or IBtl-compatible machine. Nurse Corps Officers 
testing the prototype model operate available 2enith-150 
microcomputers located within the nursing service 
departments. These microcomputers are configured with two 
floppy disk drives. The capacity of floppy disks to hold 
data delineates the maximum size of the project. 

2. Spftwqre 

This project uses off-the-shelf software. However, 
no current product on the market provides for both the 
automation of a nursing care plan and for patient 
classification. A versatile, multipurpose programming 
software package adaptable to the project design provides 
the means to integrate the nursing activities. 

3. Intgnflefl user 

Navy Nurse Corps functions are currently not highly 
automated. It is a goal of the software product 
development to make the system user-friendly and 
understandable even to the novice nurse. The system 
designed is for use as a tool for the professional nurse. 
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Stringent programming measures reduce the understanding 
required of the inner markings of a computer. 

C. DEFINITIONS 

1 . The Nursing Care Plan 

The nurse is a manager of time, energy and 
resources. Conscientious planning occurs throughout the 
many levels of a nurse’s Job. The nursing care plan is at 
the heart of what a nurse should get accomplished for a 
patiBnt. The nursing care plan alloius the nurse to 
approach each patient with a documented plan of action. 

The care plan needs to contain sufficient information on 
the patient to make it pertinent without making it lengthy 
and unwieldy . 

Currently, the writing of nursing care plans is 
not a popular activity. C4-63 Nurses agree that patient 
care planning is necessary. They disagree on how best to 
implement the documentation of nursing care plans. 

Education and practice direct nurses to prioritize energies 
on administering patient care. This is an admirable goal 
to strive toward, but one often infringed upon by 
non-patient care requirements. Animosity exists between 
the need to provide the necessary nursing care and the time 
spent documenting the care. Flanual documentation currently 
eats up HtO per cent of a nurse’s time. C7:£ED 

Uarious approaches to encourage, enable and 
persuade nurses to complete nursing care plans have been 
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tried. The Joint Commission on Accreditation of Hospitals 
CJCAHD requires a documented plan of care far every 
patient. C8:98D Texts have been published to inform 
nurses about suggested care planning methods. C8-101 
Many hospitals establish nursing committees to provide 
standardized care plans. Standardized care plans attempt 
to save nurses the time and energy necessary to develop 
original care plans. They still allow individualization of 
plans. These attempts to simplify care plan writing 
activities have not succeeded. UJhat often results is a 

nursing care plan written precursory to assessing thB true 
needs of the patient. The plan rapidly outdates itself. 
Plans frequently need updating. The care plans lack 
consistency from one practitioner to another. Patient care 
plans written to meet JCAH requirements, fall short of 
matching the spirit behind them. 

A passible solution to the above care planning 
dilemma is beginning ta appear in nursing literature. In 
many instances that solution is a successfully implemented 
automated nursing system. C11-12D Where a successful 
automated system exists, more nurses actively develop care 
plans for their patients. Nurses perceive the automated 
plans as helpful and pertinent to the care delivered. The 
speed and ease af entering care plans pays dividends of 
better nursing care documentation. Their timely output 
encourages active use af the plans. 
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2 . The Nurslna Diagnosis 



One accepted method for formulating a nursing care 
plan commences with a nursing diagnosis. A nursing 
diagnosis, as stated by Carpenito, is: 

a statement that describes a health state or an actual 
or potential alteration in one’s life processes Cphysio- 
logical , psychological, sociocultural, developmental, and 
spiritual]. The nurse uses the nursing process to identify 
and synthesize clinical data and to order nursing 
interventions to reduce, eliminate, or prevent Chealth 
promotion] health alterations which are in the legal and 
educational domain of nursing. C13:4D 

Automation was one of the catalysts behind the 
First National Conference on Classification of Nursing 
Diagnoses. Since the first conference, 52 of the most 
pertinent nursing diagnoses Cthrough the Sixth National 
Conference of the North America Nursing Diagnosis 
Association], have been identified. Nursing diagnoses, 
along with delineating the etiology and interventions 
appropriate to each, has produced a national effort aimed 
at unifying activities in nursing. C14:xi] The nursing 
diagnosis approach has received broad support from the 
nursing community. The nursing diagnosis drives this 
computer project. 

Numerous texts provide sample or generic statements 
initiated by nursing diagnosis. Many hospitals interested 
in implementing automated nursing care planning use 
standard texted plans. This program extracts examples from 
Daenges C153 and Crosley CIS]. 
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A nursing diagnosis is multileveled . A nursing 
diagnosis can be any one of the 52 approved nursing 
diagnoses. Each diagnosis has an assessment level. 
Assessment levels are defining characteristics observed by 
the nurse or subjectively stated by the patient. The 
nurse’s observation or the patient’s statement is 
relational to some etiology or underlying cause. The 
underlying cause statement helps the nurse evaluate 
realistic goals for the patient to achieve. Goal setting 
is the fourth level of nursing diagnosis. The final level 
is selecting nursing actions or nurse’s orders directed 
toward achieving the stated goal . 

3. Pptlent ClaggjlflCPfciqn 

Patient classification is: 

the grouping of patients according to an assessment of 
their nursing care requirements over a specified period of 
tifTlB. C 17 : B J 

A valid patient classification tool enables proper staffing 
evaluation. This program will adopt the Navy Nurse Corps’ 
Workload Management System for Nursing. This method of 
classifying patients exists in all inpatient Navy 
facilities. The Nurse Corps has established solid 
criteria-based critical indicators which this program will 
exploit for deriving a classification level. The 
classification level equates an amount of nursing time 
required to give patient care. 
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The Navy Nurse Corps is ahead of its civilian 
counterparts in its use of a sophisticated tool to measure 
patient classification level. The use of the Workload 
nanagement System worldwide has given the Nurse Carps 
excellent data to improve its system. The continual 
drawback that many manual tools have, including this one, 
is subjectivity and inconsistency across users. With 
inservice training and auditing, the Nurse Corps attempts 
to keep the reliability of its model high. Automating such 
an activity would enhance consistency and accuracy. 

4 . Expert Sustem 

This program will introduce an expert system 
limited to the patient classification documentation. Ryan 
defines an expert system as a system capable of operating 
with a large knowledge database, processing information on 
expert level . She continues with 

benefits of expert systems are that they can capture, 
replicate, and distribute expertise. £18:77] 

As a large standardized nursing knowledge database 

accumulates, the application of expert systems will increase 

in importance. 

For this project, patient classification adapts 
well to an expert system approach. The critical indicators 
and their associated value can easily fit the if-then 
format of most expert systems. The expert system will 
extract from a patient’s orders the applicable critical 
indicator values and calculate a classification level. 



14 



III. REQUIREMENTS DEFINITION AND ANALYSIS STAGE 



The first stage of software development is the 
requirements definition and analysis stage. This stage 
defines thB purpose of thB system and examines thB 
different components that ultimately make the whole. The 
prototype system provides the nurse with a tool to assist 
in the documentation of the nursing care plan and 
calculation of a patient classification level. 

A. PATIENT ADMISSIONS 

Nurses cannot exercise their skills without patients. 
The ability to bring patients into the system Cadmissionl, 
and have them exit the system [discharge! provides a 
realistic situation. The varying population number 
necessitates an expandable capacity for holding patient 
information . 

B. NURSING CARE PLAN AND PATIENT ORDERS 

A patient occupies a specific bed in a numbered room 
located on one of several nursing wards. After the patient 
arrives on the ward, doctors write orders. The nurse 
interviews the patient and develops a nursing care plan. 

The care plan consists of one or more nursing diagnoses. 
Each nursing diagnosis has one or more assessments, related 
factors, patient goals and nursing orders. The initial 



doctor’s and nurse’s orders comprise the patient care 
requirements. The patient care requirements determine the 
patient classification level. 

The orders determine the patiBnt care requirements. 

Both doctor’s and nurse’s orders dictate nursing care 
activities. The calculation of a patient classification 
hinges on the analysis of the patient orders for relevant 
critical indicators. 

A patient order consists of the date, the time, the 
order, the frequency of the order, and the practitioner 

initiating thB ordBr . DatB and timB dependency is critical 
for patiBnt orders. An order’s datB and timB determines 
whether the order is current or due for deletion. The 
order date is also important for patient classification 
determination. Patient orders prescribed for a specific 
number or repetitions Ci.e. x 3 or x 121 are nonrecurring 
orders. Nonrecurring orders input to patient 
classification calculation only on the datB they were 
issued . 

The purpose of the critical indicators is to easily 
translate patient orders to a patient classification level 
in a manual system. Only those orders that closely parallel 
the critical indicators in the Nurse Corps’ Workload 
Nanagement System for Nursing need consideration. 
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A need exists for the user to identify a patient then 
move on to select patient orders. The indexing of orders 
to allow for logical progression aids the process. 

Individual orders will need to be linked to a relevant 
critical indicator. Many critical indicators are time or 
frequency dependent. The program should tie these factors 
together. Patients frequently require several doctor’s 
orders from the same section. The program would need to 
accommodate for some type of looping to handle multiple 
order entry for a single subcategory. 

ThB practitioner is a doctor or a nursa qualified to 
enter patient orders. The program should have an internal 
check to assure that a practitioner has limited ordering 
access pertinent to their qualifications. 

The patient’s condition is dynamic. The program will 
need to provide an easy method to modify changes. Nursing 
care plans vary in length and content. Some patients have 
multiple nursing diagnoses, while others have only one. 

The program would have to accommodate for these variations. 

Some method would need to be available for 
communicating modifications to staff members. This 
communication process is best if the output is in a printed 
format. Printed output allows for the information 
transmittal to staff members even when away from the 
computer location. 
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A number of nursing diagnoses in the system is 
desirable. Patient needs cannot be anticipated. A variety 
of diagnoses allows for specific selection. Because a 
nursing diagnosis requires documentation of assessments, 
related factors, goals and nurses’ orders, these functions 
rsquirB inclusion. 

C. TRACKING USERS AND PROGRAfl SAFEGUARDS 

Some input information should distinguish for the 
system that the current user is either a doctor or a nurse. 
A doctor will want to choose a ward for patient admission, 
identify the patient and select orders. A nurse will want 
to select a ward and patient but then either select a 
nursing diagnosis or calculate a patient classification. 

The doctor/nurse functions, although related by patient 
selection are different in nature. When users enter the 
system the program should identify whether they are doctors 
or nurses, and direct their attention to the appropriate 
branch of the program. 

The program selectively allows access to program 
information to eliminate unauthorized access. The program 
contains hypothetical patient information. Nevertheless, 
addressing the privacy of sensitive patient information is 
relevant even in a prototype setting. Safeguards built 
into the system reduce the chance of successful 
unauthorized entry . 
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D. USING AN EXPERT SYSTEM FOR DETERMINING PATIENT 

CLASSIFICATION LEUEL 

A self-imposed requirement of the system is to use an 
expert system to determine the patient classification 
level . This expert system should interpret the patient 
order as to which critical indicator applies and the 
frequency of its performance. The expert system then 
translates that information into patient care points which 
then calculates a patient classification level . 

The use of an expert system would allow a user the 
option of reviewing rules used in calculating the patient 
classification. The patient classification tool is 
continually evolving. By monitoring rules and their 
underlying critical indicators, the user gets a visual 
output of the points and how they were derived. 
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IU. DESIGN STAGE 



The design stage attempts to answer how the system will 
accomplish thB requirements outlined in the requirements 
definition and analysis stage. 

A. PATIENT ADMISSION CRITERIA 

The need analysis pointed out the requirement For 
handling varying numbers of patients with set criteria an 

each patiBnt. Two options to meet this requirement are an 
automated file system or a database system. Generalized 
patient data that would need to be included are: patient’s 
first, middle and last names; their rate or rank; their 
Family member prefix concatenated with their social 
security number giving a unique identifier; birthdate; age; 
sex; admission date; hospital registration number; medical 
diagnosis; physician; prognosis; allergies; as well as 
their nursing ward, room and bed assignments. CSee 
Appendix A, Data Dictionary; Appendix B, Structure Chart; 
and Appendix C, User’s Manual for additional information.! 

B. NURSING CARE PLAN 

A representative four of the 52 approved nursing 
diagnoses were selected due to the floppy disk capacity 
constraint. To some degree, every patient experiences self- 
care deficit when admitted to the hospital. Other diagnoses 
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are more applicable to some specific area in nursing. The 
three other nursing diagnoses reflect diagnoses frequently 
seen in a military hospital setting. These diagnoses are: 
comfort, alteration in: pain; communication, impaired: 
verbal; and impaired physical mobility. 

Critical indicators that fall under the independent and 
interdependent roles of nursing need to be identified. 

After identification, these indicators require 
incorporation into the nursing order screens for selection. 
These critical indicators need to be back-chained to one of 
the four nursing diagnoses, to provide for thBir selection. 

The critical indicators on the Patient Classification 
Critical Indicators C19:10D list that were identified as 
independent or interdependent nursing functions were: all 
activities of daily living except turning frame; spoon 
feeding adult and children patients; accompany patient off 
ward, other activities requiring nurse’s time and special 
procedures; range of motion exercises; and all items listed 
under teaching and emotional support. This is an initial 
grouping, conservatively chosen. 

Multiple nursing diagnoses, with their corresponding 
assessments, related factors, goals and nursing orders, can 
be handled with either a file system or a database system. 

C. DOCTOR ORDER CRITERIA 

The criteria to include doctor order categories will be 
to meet critical indicator requirements and provide a 
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representative model of patient orders. An admission 
section monitors the patient Flow. This satisfies the 
critical indicators of admitting and transferring patients. 
An activity section captures the mobility level of a 
patient. A diet section captures the dietary requirements 
of a patient. A section provides selections of intravenous 
and blood products that a patient might require. 

Laboratory and pharmacy sections allow orders for lab tests 
and medications. A monitoring section allows options for 
monitor orders. A radiology section captures radiology 
test orders. A respiratory therapy and vital sign section 
allows orders that relate to those areas. Finally, a ward 
routine section captures the nursing care activities 
normally restricted to the ward setting. 

These categories would allow for the dependent and 
interdependent functions of nursing, which the critical 
indicator list includes. Either a file or a database 
implementation would satisfy these requirements. 

D. PATIENT ORDERS 

Microcomputers have the ability to maintain an internal 
clock upon entry of the current date and time. The program 
would need to pick up this data from the system’s clock to 
attach it to patient orders. The actual order length would 
need limitation to a number that would best suit a screen 
presentation Format. The number of options for 
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time/Frequency would need to include those commonly Found 
in a medical environment. 

The design should accomplish the looping For multiple 
orders in a single subcategory. Once selected, an order is 
activated and placed in an order File or database. ThB 
program returns For another order or to have the user select 
to move on . 

E. USER INFORMATION 

The use oF a user chosen password to access the program 
would accommodate all oF the identiFied requirements. 

Utilizing a user inFormation database would provide For 
users to be added or deleted From the program. The 
database carries their status within the organization and 
provides an access level For legal entry into the program. 

A doctor or nurse, by signing on to the system and entering 
their valid password, would dictate which branch the 
program should route them through. The password would also 
limit those not authorized to use thB system From entering 
the program. 

To provide For a degree oF user specialization, the 
design proposes Four areas oF access. The First is For 
admissions personnel. In a hospital, the admissions 
department is physically separate From the ward. Admissions 
personnel are responsible For the input oF patient inFormation. 
The second group is the nurses who develop the nursing 
care plan and determine the patient classiFication . The 



23 



third group is the physicians who select doctor’s orders. 

The fourth group is the information systems personnel. Their 
role would be to add new users and delete obsolete ones. 
Access level assignments occur during routine check-in 
procedures of personnel. The actual assigned level would 
depend upon the employing department and the Job position. 
Additionally a fifth group exists for the prototype model. 
This is a group of users, with passwords allowing access 
to all areas to aid in the testing and integration of the 
software model . 

F. EXPERT SYSTEM 

The expert system calls for special input 
consideration. A patient order consists of the order and 
the frequency. Major order headings Ci.e. vital signs] can 
be categorized as a qualifier. Listed under each qualifier 
is its potential values Ci.e. QID or less, q4h or x S, qEh 
or x IE, qlh or x E4] . From this system of qualifier and 
value, rules can be dBrivBd Ci.s. vital signs QID or Ibss 
receives a value of 1 patient point]. By splitting the 
critical indicators into qualifiers and values, thus 
setting up conditions, the formulated rules allow the 
system to derive a patient classification level. CSee 
Appendix D . ] 
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G. SCREEN FORflAT 



User friendliness is a goal many programs strive to 
achieve. This program will follow many of the suggestions 
of Monk’s text on Fundamentals of Human-Computer 
Interaction. C203 The program will rely on consistent 
screen formats which locate user instructions in the same 
place on each screen. After patient identification, the 
patient information is put on every screen so the user has 
no question which patient he has selected. The program 

will provide the user with consistent input locations. 
Screens are uncluttered and easy to follow. The screen 
color is white lettering on blue background. Although 
speed is not a prime consideration for this model, it 
influences the selection of the method of screen 
projection. A software utility called Flashcode creates 
the screen projections. Where possible, the user returns 
to a previous screen, or to a home base to reorient 
themselves. A rudimentary help facility allows on-line 
assistance. The help facility demonstrates its function 
rather than providing indepth assistance with this 
prototype model. CSee Appendix E and Appendix F.J 

H. SOFTWARE SELECTION 

With hardware choice set by the constraints of the 
user, software compatibility is the remaining issue. 
Numerous software packages exist for IBM-compatible 
microcomputers. Information in a database format provides 
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increased data flexibility and maneuverability. Some 
advanced programming tools provided by database software 
producers simplify the task of programming. These are 
major incentives to choose a database orientation. The 
database language, dBase III, has user friendly features 
and the capability for meeting most of the identified 
requirements. An area for which dBase III can only provide 
a partial solution is the expert system. The dBase III 
program has the ability to calculate patient point totals 
and derive a patient classification level. It lacks the 
option of allowing the user to see why it calculated its 
results in a specific way. 

The expert system chosen is Exsys . Exsys is an off- 
the-shelf expert system that can accommodate the number of 
critical indicators outlined in the Navy's Nurse Corps’ 
Workload Management System for Nursing. This software 
product can also do the necessary calculations required to 
arrive at a patient classification level. 

The information format coming into Exsys requires the 
statement of qualifiers and values. The dBase III language 
accommodates for this by including the qualifier and value 
with each order selected. A salient feature of Exsys, that 
makes it especially appropriate for this design, is its 
ability to import data from an output file. Exsys operates 
as an interactive independent program using the same 
conditions and rules. This option is useful because of the 
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iterative nature of both the critical indicator development 
and that envisioned For this system. In addition, Exsys 
does allow the user to view rules used to derived a 
classification. ft visual check of the applied rules 
against the individual patient order allows the achievement 
of greater reliability. CSee ftppendix 0.1 



27 



U. PROGRAMMING STAGE 



The programming stage constructs a product for the 
user. The software product incorporates details identified 
in the analysis and design stages to produce a workable 
solution. The product’s overview is presented in Figure 1. 




Figure 1 



Nursing Prototype Product Overview 



Box 1 
Box 1.1 
Box 1.2 
Box 1.2.1 
Box 1.2.2 

Box 1.3 
C 3 



Coordinating Module 
Patient Admissions 
Select Ward and Patient 
Select Doctor Orders 

Select Nursing Diagnosis, Nursing Orders and 
Patient Classification 
Patient Classification 
Expert System CExsysD 



A modular approach was used for programming. Appendix 



B displays the design modular structure of the prototype 
system--a detailed version of Figure 1. This structure was 
used as a guide in program development. Programming 
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modularity allows the programmer to work with smaller more 
manageable units. This enables the programmer to easily 
test and debug a module before integrating it into the 
system. The use of comments throughout the programming 
effort attempts to improve the maintainability of the 
program. CSee Appendix E far program listings.] 

A. TRACKING USERS AND PROGRAM SAFEGUARDS 

In programming modules the author has tried to minimize 
the number of steps required for the user to move between 
modules. Whenever possible, the system automatically 
advances the program to the next screen . 

Screens are used in this chapter to demonstrate the 
method used to convert design details to workable 
solutions . 

The program opens with an introductory screen CFigure 
2D . The screen gives information on the organizations 
supporting the program and identifies the author. 

Depressing any key advances the program to a screen 
requesting a password CFigure 3D. Advancing beyond the 
second screen requires a valid password. The program 
compares the entered password against a database of user’s 
passwords. If the password is a match, the user moves 
forward to the main branching module of the program. 
Incorrect passwords deny access with the opportunity to 
re-enter a password . 
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A PROTOTYPE 



PROJECT 

FOR 

THE 

NAUY NURSE CORPS 



BY 

GARY R. HARMEYER 
LCDR NC USN 

MARCH 1986 

NAUAL POSTGRADUATE SCHOOL 
MONTEREY , CALI FORN I A 
RELEASE 1 



PRESS ANY KEY TO BEGIN 

i 



Figure 2 Introductory Screen 



Ploaaa Sign On Bg Entering Password *** 



•• Password : 



Figure 3 Uclidation Screen 
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As □ result of entering a valid password, the system 
now recognizes the user by name and access level CSee 
Figure 41 . 

*• Prototype Plaster Screen •• Date Time 



Current 



••• Select the Desired Option ••• 
11 Admission’s Department 
2D Doctor’s master 
3D Nursing master 
HD System Administration 
OD Sign-Off 

User : 



Select one number CO-HD 



----> • 



Figure 4 Prototype Plaster Screen 

The four user accBss levels available in this program are 
admissions personnel, nurses, doctors, and administrative 
personnel. The current user’s name appears in the bottom 
left corner of each screen. Since the system now 
recognizes a user by name and access level , the main 
branching module restricts the user’s entry to a branch 
corresponding to that access level . 

The main branching module provides five options for 
selection. The first option, which appears on essentially 
every screen, is to sign-off from the system. This ends 
the current user’s session, and returns the program to the 
introductory module. The other four options relate to the 
main sections of the program. 
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B. PATIENT ADMISSIONS 



The selection of admission’s department advances the 
program to an admi t/discharge option module. The admit 
option moves the user to a patient data input screen 
CFigures 5,61. Admitting a patient requires the user to 
input patient data to a patient information database. CSee 
Appendix C for the User’s Manual.! From this database, the 
program uses the patient’s name, Family member prefix- 
social security number Cfmp-ssnl, ward, room and bed. 

After entering the patient data, the user returns to the 
admi t/discharge module. 

The selection of discharge a patient moves the user to 
the discharge module. The user reviews and selects 
patients For discharge. Upon leaving the discharge module, 





••• SELECT 


ADP1IT / DISCHARGE OPTION ••• 






13 


Admit A Patient. 






23 


Discharge A Patient 








03 Sign-Off 


Current User: 


i 

Select one nuraDer CO-23 — — > , 



Figure 5 Admit/Discharge Screen 
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Patient Admission Form j 


Last Name: 


Registration No: 


First Name: 


medical Diagnosis: 


Hid Initial: 


Physician: 


Rate/Rank : 


Prognosis : 


FriP-SSN: 


Allergies : 


Birthdate: / / 


Nursing Ward: 


Age : 


Roam Number : 


Sex : 


Bed : 


Admit Date: / / 





Figure 6 Patient Admission Screen 



the program purges all patient records flagged for 
discharge. The program also purges any patient data in 
other databases with identical fmp-ssn identifiers. CSee 
Appendix G . 3 

This module limits itself to handling primitive 
admi t/discharge situations. Although limited, this module 
allows the nurse user to test a number of patient scenarios 
while working with the prototype system. 

C. DOCTOR ORDER SECTION 

The doctor option of the main branching module advances 
the physician to the nursing ward selection module. The 
doctor chooses between one of two nursing wards CFigure 73. 
A surgical and medical ward option reflects the major 
divisions of patients in a hospital . Options to return to 
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the mnin branching mcdulB cr tc sign-oFF the systBm arB 
□Iso provided. 

A ward selection moves the program to one of two 
nursing wards containing six beds CFigure B3 0 

•• NurM's Station Selection •• Date Time 

••• Select Nursing Unit to Display Patients ••• 

U 2£ Surgical ward 
2D 3E nodical word 



OD Sign-Off 



3D naster Screen 



Current User: 



Select one number C0-3D - " *> • 



Figure 7 Nutsb’s Station Selection Screen 



Patient Selection •• Ward 2E Surgical 



Date Time 



••• Select Patient ••• 



PH BED PATIENT 

1 D 1 A 
2D 1 B 

3D 2 A 
4D 2 B 

5D 3 A 
ED 3 3 



OD Sign-Cff 



7 D naster Screen 



Current User : 



Select one number C0-7D — -> ■ 



Figure 9 Patient Selection Screen 
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Patients’ names, listed in the patient information 
database, appear in their ward, room and bed assignments. 
Ualid options include: sign-off, return to main branching 
module, and selection of a patient assigned to an occupied 
bed . 

A patient selection advances the physician to the 
doctor’s branching module CFigure 3D. 



Ward Roam Bod Patient 



Reg # 



□ate Time 



•** DOCTOR’S MASTER SCREEN ••• 

13 Order Entry 

23 Admit / Transfer / Discharge Patient 
33 Review Medical Orders 
43 Print Medical Orders 
53 Discontinue An Order 



03 Sign-Off 



63 Master Screen 



Current User: 



Select one number CO-63 ----> ■ 



Figure 3 Doctor’s Master Screen 

The doctor’s menu provides options for deciding on the 
next activity. With the exception of output forms Ci.e. 
review of the doctor orders on screen or printed], any 
selection results in menu modules for doctor’s orders 
CFigure 10] . flany orders request additional order 
information moving the program to a time/frequency module. 
The doctor’s order with the frequency determines a 
qualifier and value listing m the patient’s order 
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Ward Roam Bed 



Patient 



Reg # 



Date 



Time 



— • SELECT WARD ROUTINE ••• 



1 3 Ace Wrap Lower Ext 


123 Lumbar Puncture 


203 Simple Drsg Change 


23 Chest Tube Insertion 


133 N-G Insertion 


213 Spec Gravity 


31 Circumcision Core 


143 Parencentesis 


223 Soin HCT 


4 3 Complex Drsg Change 


153 Phototherapy 


233 Straight Cath 


53 EKG Rhytnm Strip 




163 Range of notion 


243 Surgical 


63 Foleu Cath Core 




Exercises CPassive3 


Shave Prep 


73 Foley Cath Insertion 




253 S5 Enema 


83 Guiac Stools 




• Restraints 


263 lap water Enema 


93 Isolation Respiratory 


173 2-Paint 


273 Thoracentesis 


10] " Reverse 


183 4-Paint 


293 Tube Care Cnot trach3 


11) * Strict 




IS 3 Posey 


293 Urine for S & A 


00) Sign-Off 


303 Doctor's Order Screen 


31 3 naster Screen 


Current User: 












Select one number 


C 00-31 3 > 



Figure 10 Ward Routine Screen 

database. Qualifier and value information transfers to the 
expert system. In addition, a patient point value appears 
in the patient order database. This number provides the 
option of dBase III calculating its own internal patient 
classification level. CSee Appendix G.D 



D. NURSING CARE PLAN AND PATIENT CLASSIFICATION FUNCTION 
At the main branching module, the nursing option 
advances the program to the nursing ward selection module 
CFigure 6,7D. This module, and the patient selection 
modules are identical to those presented to the physician. 
The program sets an internal flag to indicate the access 
level of the user. After patient selection, the nurse 
automatically tracks to the nursing branching module 
CFigure 111 . 
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Ward Room Bed 



Patient 



Reg ft 



Date Time 



NURSING HESTER SCREEN •** 



13 Enter/ I nacti vate Nursing Care Plan 53 Review Patient Care Requirements 



23 Revieu Nursing Care Plan 



33 Print Nursing Care Plan 



43 External Patient Classification 



63 Print Patient Care Requirements 



73 Internal Patient Classification 



03 Sign-Off 



83 master Screen 



Current User: 



Select one number CO-03 • 



Figure 11 Nursing Master Screen 

The nurse branching module provides a menu for 

direction for thB ussr to proceed. Options include thB 
selection oF a neu nursing care plan, modifying an existing 
care plan, reviewing or printing patient care requirements 
Cconsisting of all active patient orders], reviewing or 
printing the nursing care plan information, and determining 
the patient classification system. 

After the nursing care plan option selection, the 
program advances to a module allowing for a new care plan 
entry or a modification of an existing care plan. The 
choice of a new nursing care plan provides the option of 
the four selected care plans CFigure 12] . 

All patients require a minimum of one care plan Cself- 
care deficit]. All diagnoses, assessments, goals and 
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nursing generated orders enter into a nursing carB database 
CFigure 133. In addition to the nursing care database, 
nurse generated orders are also placed in the patient order 
database for inclusion in the calculation of the patient 
classification. CSee Appendix F For additional screens.] 



Word Room Bod Patient Reg * Dote Time 

--- SELECT NURSING DIAGNOSIS ••• 



0) Sign-Off 
Current User: 



ID Comfort, Alteration In: Pain 

23 Communication, Impaired: oernol 
33 Impaired Physical nobility 
43 Self-Care Deficit 

5) Nurse's master Screen 6) master Screen 

Select one numder C0-S3 ----> • 



Figure 12 Nursing Diagnosis Screen 



Ward Roam Bed Patient 



Reg # Date Time 



•* SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS •• 

•• COmnUNlCATES: PAIN FREE, EXPERIENCES LESS/TOLERABLE PAIN OR OTHER GOAL •• 



13 Assess Pain Factors 
23 Assess & Evaluate Poin 
33 Encour Pt to Use Cooing Strategy 
43 Give Info & Explain Proc & Tests 
53 Other Nursing Orders: 



63 Offer PRN medications 
73 Provide Emotional Support 
B3 Schedule "Quiet Times" 

S3 Teach Alt Coping Strategies 
103 Utilize Diversianal Activities 



Current User: 



Select one number C01-103 ---> 



Figure 13 Nursing Order Screen 
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If the option selected inactivates a portion of the 
nursing care plan, the user moves to a module for review of 
existing care plan entries. If an entry is inactivated, 
the program purges all portions related to that specific 
entry including the order in the patient order database. 

The selection to review or print the patient care 
requirements consists of all active patient orders. Active 
orders consist of previously selected orders, and those 
orders selected far a specific frequency Ci.e. x ED on the 
date of their selection. The same criteria applies when 
determining patient classification [Figure 14]. 



Press — Ctrl and S — Keys To Pause The Scrolling If Necessary 
Page No . 1 

01 / 12/86 



Date Time 



01 / 11/86 

01 / 11/86 

01 / 11/86 

01 / 11/86 

01 / 11/86 

01 / 11/86 

01 / 12/86 

01 / 12/86 

01/12/85 

01 / 12/86 

01 / 12/86 

01 / 12/86 

01 / 12/86 

01 / 12/86 

01 / 12/86 



10:06:20 
12:08:07 
13:10:15 
13: 10:53 
14:13:47 
14: 14:23 
10:17: 14 
10:17:40 
10:18:00 
10: 18:26 
10:18:56 
10:19:26 
10: 19:54 
10:20: 18 
10:22:02 



Order Frequency Practitioner 



Teach Alt Coping Strategies 








G. 


Harmeyer 


RN 


Assist Bed To Wheelchair 


TID 






N. 


Lyons MD 




Salf/ninimum Care 








G. 


Harmeyer 


RN 


Keep Commode 2 Bedside 


TID 






G. 


Harmeyer 


RN 


Up in Chair u / Assist 


TID 






N. 


Lyons MD 




Diabetic Diet 








N. 


Lyons MD 




Cloride 


Daily 


0 


0600 


T. 


Bui MD 




Sodium 








T. 


Bui MD 




Amylase 








T. 


Bui no 




Potassium 


Daily 


2 


0600 


T . 


Bui HD 




C02 


Daily 


2 


0600 


T. 


Bui HD 




CBC 


Daily 


2 


0600 


T. 


Bui HD 




Platlets 


Daily 


2 


0600 


T . 


Bui HD 




Glucose 


Dai ly 


2 


0600 


T. 


Bui HD 




Intake & Output 


TID 






T. 


Bui HD 





i 



Figure 14 Patient Requirement Screen 

The nurse can also select to review only the nursing care 
plan portion of the patient record. This enables review of 
the nursing care plan to determine if modifications or 
updating is necessary. 
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Two options for determining patient classification 
exist. The first option keeps the user in the current 
program, and generates a number with a corresponding 
patient classification level [Figure 153. 



Patient: nary nisor 

Is In: Category II 

Point Ualue Is: 27 



Figure 15 Patient Classification Screen 

Each order receives a point value based upon the order 
selected and the frequency for that order. Then dBase III 
sums these points and assigns a patient classification 
level . The program does not explain houi this number was 
calculated. A less user-friendly method results when 
selecting the second option--that of external calculation 
of the patient classification. The user exits the dBase 
program, changes floppy disks, and runs Exsys. The patient 
point value and level would not change, but the expert 
system program displays rules used to derive the 
classification level. 
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E. INFORMATION SYSTEM 

The information system section of the program is a 
parallel development of the admission’s department. User’s 
of the program must have the appropriate access level to 
advance beyond the main branching module [Figure 3D. The 
program limits transactions to adding another user to thB 
system or deleting a current user [Figures IB, 17] . 



*•* SELECT ADD / DELETE 


A USER •*• 




13 


Add A User 






23 


Delete A User 






03 


Sion-Off 






Current User: 




Select one 


number CO-23 -— > 


• 



Figure 16 Add / Delete A User Screen 

F. PROGRAM TESTING 



Testing is an aspect of the programming stage. Testing 
criteria are three-fold. First, procedural testing of 
separate modules [white-box testing] takes place as modules 
are completed. Next, integration testing assures modular 
interfaces are smooth from one program to another [black- 
box testing]. Finally, independent use by a third party 
tests the program in a simulation performance. UJhere 



Ul 



testing uncovered mistakes, program modifications correct 



the errors . 



USER INFORMATION 

THIS INFORMATION IS CONFIDENTIAL **“ 



First Initiai: 

Diddle Initial: 

Last Homo: 

Category of 
koquoacor : 

Password : 

Access Level: 



Figure 17 User Information Screen 
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UI . IMPLICATIONS FOR FUTURE STUDIES 



Creating a hospital information system model is a time- 
consuming methodical process. A program using nursing 
diagnosis to drive nursing care plans produces a logical 
product. The major implications of this program center an 
the automation of the patient classification system. 

Tying critical indicators to patient orders is an 
arduous task that required many iterations. The program 
makes assumptions about orders. This program assumes thB 
physician knows the difference between a simple and complex 
dressing change Csee Figure 103. The distinction between a 
15 minute dressing change and 30 minute dressing change can 
be very subjective. Frequency of patient orders relates to 
almost all the critical indicators. This program separates 
the time/frequency options into prn Cas necessaryJ, once a 
day, twice a day, 3, 4, 6, 12 and 24 times a day. The 
latter seven options divide further into recurring orders 
Ci.e. twice a day 3 verses nonrecurring orders Cx 123. 
Recurring orders continually count toward the patient 
classification level until discontinued. The nonrecurring 
orders count only on the day ordered. Nurses calculate 
classification levels daily at 1400. Many nonrecurring 
orders are completed by that time and should not be 
calculated. The program counts these orders. 
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Duplicate orders result in duplicate point 
calculations. For example, if a doctor and a nurse each 
order passive range of motion exercises for a patient TID, 
the patient point total would be B vice the correct total 
of 4. The program tallies B points for isolation 
precautions regardless of the number of gown and glove 
changes. The correct assignment gives B paints for every 
eight gown and glove changes. 

In the current manual system, doctors and nurses assume 
that new orders supersede previous orders. If doctors and 
nurses hold to that assumption, this program produces 
inaccurate results. For example, if a patient’s condition 
improves, the doctor writes an ordBr for vital signs Q4h 
Cwith a patient point value of BD without deleting thB 
original order of vital signs QBh Cpatient point value of 
4] . The program totals vital signs points as 6 instead of 
B . 

Some critical indicators do not readily convert to a 
patient point value. The program accommodates for three of 
these critical indicator exceptions. The critical 
indicator for apnea monitor, temperature monitor, etc. is 
not additivB and as such translates indirectly from patient 
orders. The critical indicator for specific gravity, 

Guiac, etc. is additive across orders resulting in a point 
total assignment. The classification listing limits 
emotional support to a maximum total point value of 10. 
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Assigning a patient point value to these patient orders 
requires an intermediate variable. The calculation occurs 
first for the intermediate variable. This amount then 
feeds into the sum of other patient point values. 

Medication and laboratory critical indicators presented 
difficulty in program translation. The program assigns 
points for medication and laboratory samples on a per order 
basis rather than on a per trip basis. The intended 
critical indicator for both factors assesses points on a per 

trip basis. The nurse actually delivers all the medications 
for a specific timB in ane trip. ThB nurse draws numerous 
lab tests with one venipuncture. The program calculates 
point values based on individual medication or laboratory 
test order. Aggregating nonintravenous medications and 
laboratory tests into time groups would provide accurate 
results. However, the effort required to program in time 
groups was counterproductive for this project. 

The program overlooks patient situations requiring more 
than one staff member. Currently, all critical indicators 
except turning frame, which explicitly includes two staff 
members, calculate on a one staff member per patient basis. 

To accommodate for patient orders not currently listed 
on the nursing order screen, an ’’other orders” option 
exists Csee Figure 133. The option allows any nursing 
order entry. Entries in this category result in no patient 
points awarded to those orders. Despite their critical 
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indicator valuB, thB program lacks thB rsfinBrnant nBCBSsary 
to assign a value to this order. 

Many of the areas addressed can be corrected by going 
into the expert system’s interactive mode. In this mode 
the program calculates entries in a more thorough manner. 
The trade-off for accuracy is user subjectivity in 
selecting applicable critical indicators. Another 
trade-off is the time required to traverse 05 qualifiers in 
a real time setting. 
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UI I . CONCLUSION 



Automated systems exists that combine nursing diagnoses 
with the nursing care planning Function. No automated 
system on the market integrates nursing diagnoses, nursing 
care plans and patient classification. The Navy Nurse 
Corps has a sophisticated patient classification tool. The 
tool lists critical indicators which adapt readily to 
automation to produce a classification level . 

This thesis project is a programming effort producing a 
prototype software product marrying three nursing 
activities — nursing diagnosis, nursing care plans, and 
patiBnt classification. This project demonstrates anB 
possibility for integrating thB nursing carB plan using 
nursing diagnosis and the Navy Nurse Corps’ patient 
classification system. The program extracts points for 
critical indicators from patient orders. 

The greatest incentive for marrying nursing diagnosis, 
nursing care planning and patient classification is to 
improve patient care. Improved patient care results from 
precise documentation and uniform staffing. Nurses 
acknowledge the need to document plans of care to serve as 
a guide for all staff members. Nursing is a seven day a 
week, 24 hour a day profession. Care plans provide a 
consistent, comprehensive method for delivery of patient 
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care. Without this plan of care, valuable nursing time 
disappears while continually redefining basic patient care 
requirements. Successfully implemented automated systems 
have improved documentation by making it easier, less 
time-consuming, and more user gratifying. 

Patient care is also enhanced through better staffing 
of nursing units. Staffing levels relate directly to 
patient care requirements determined by patient 
classification. The program automates the patient 
classification process to calculate an accurate and 
objective measure of patient care requirements. Staffing 
to a level that can be objectively quantified is a goal. 
Such a level assures nursing administrators their scarce 
nursing resources are properly utilized while at the same 
time providing staffing levels in keeping with safe 
standards of care. 
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APPENDIX A 



DATA DICTIONARY 



CLocal looping variables omitted! 



Nodule: 

Uariable Name: 
Aliases: 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 
Comment : 



Intro . Prg 

Flash 

None 

Character 
ChrC 1451 
All modules 

Flash Code specified variable, use 
in conjunction to displaying 
screens . 



Nodule : 

Uariable Name: 
Aliases : 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



Ualid . Prg 

Xusepass 

None 

Character 

String of 5 characters 
Ualid . Prg 

A concatenation of Xusepasl through 
XusepasS Csingle characters! to 
form the individual’s password 
entry. Xusepass is compared with 
those in the Useinfo.Dbf to deter- 
if the entry received is a valid 
password . 



Nodule : 

Uariable Name: 
Aliases : 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 

Comments: 



Ualid . Prg 

Curuser 

None 

Characters 

String of up to 23 characters 

All modules except Intro, Pt_Info and 

Useinfo 

A concatenation of Uf initial and trim 
Ulname. Is displayed on the screen 
based on password entered and name 
associated with that password in the 
Useinfo.Dbf. Curuser is also entered 
as the practitioner or nurse in the 
Orders. Dbf or Ncaredb.Dbf. 



Nodule: 

Uariable Name: 
Aliases: 



Ual id . Prg 

Useacc 

None 
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Format OF Data: 


Numeric 


Allowable Ualue: 


0-4 


Files Uariable Used: 


Master .Prg 


Comments: 


When a new user is entered into the 
system an access level is assign. 
This access level allows For privacy 
and security in the program. 


Module : 


Master . Prg 


Uariable Name: 


Omodule 


Aliases: 


None 


Format OF Data: 


Character 


Allowable Ualue: 


D or N 


Files Uariable Used: 


UJard2 and Ward3.Prg 


Comments: 


Serves as a Flag when exiting the 
U)ard2 or UJard3.Prg indicating 
which module called, those 
pertaining to the physician staFF 
or the nursing staFF . 


Module : 


Pt_ I nFo . Prg 


Uariable Name: 


Xplname 


Aliases: 


XdclnamB , Plname 


Format OF Data: 


Character 


Allowable Ualue: 


20 characters For patient’s last name 


Files Uariable Used: 


All Files except Intro, Ualid, Master, 
Ward and UseinFo.Prg. 


Comments : 


Used in the Pt_InFo.DbF and .Prg. 
Called by Uard2 and Ward3.Prg. 


Module: 


Pt_InFo.Prg 


Uariable Name: 


XpFname 


Aliases : 


XdcF name , PF name 


Format OF Data: 


Character 


Allowable Ualue: 


12 characters For patient’s First name 


Files Uariable Used: 


See discription above For Xplname. 


Comments : 


See discription above For Xplname. 


Module: 


Pt_ InFo . Prg 


Uariable Name: 


Xpmname 


Aliases : 


Xdcmname, Pmname 


Format OF Data: 


Character 


Allowable Ualue: 


Up to 3 character string. 


Files Uariable Used: 


Pt_InFo and Discharg . Prg . 


Comments : 


Represents the patient’s middle 
initials . 


Module : 


Pt_InFo .Prg 


Uariable Name: 


XFmpssan 


Aliases: 


XdcFssn, Fmpssan, PtFmpssn, MptFmpssn 
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and Xptlfmpsss . . . Xpl2f mpssn 
CUJard2/Uard3 . Prg] 


Format OF Data: 


Character 


Allowable Value-. 


2 digit numeric code, a then 

social security number. 


Files Variable Used: 


See discriptian above for Xplname. 


Comments : 


See discriptian above for Xplname. 

' The unique identifier for each 
patient. Variables with an ”Xpt” 
prefix indicate they are ward, 
room and bed dependent . 


Module : 


Pt.Info . Prg 


Variable Name: 


Xpregna 


Aliases : 


Pregno , PtrBgno and Xptlregno... 
Xptl2regno CU)ard2/UJard3 . PrgD 


Format Of Data: 


Character 


Allowable Value: 


Numeric 8 digit number 


Files Variable Used: 


See discription above for Xplname. 


Comments: 


See discription above for Xplname. 
Represents the hospital registra- 
tion number. Variables with an ”X” 
prefix indicates they are ward, room 
and bed dependent . 


Module : 


Pt_Infa . Prg 


Variable Name: 


Xpphy 


Aliases: 


Xdcpphy , Pphy and Xdcprac 


Format Of Data: 


Character 


Allowable Value.- 


Up to 24 characters 


Files Variable Used: 


Pt_Info and Discharg.Prg 


Comments: 


Represents the patient’s physician. 


Module : 


Pt_Info .Prg 


Variable Name: 


Xpward 


Aliases: 


Pward 


Format Of Data: 


Character 


Allowable Value: 


”2E” or ”3E” 


Files Variable Used: 


See discription above far Xplname. 


Comments : 


See discription above far Xplname. 
Represents a ward assignment. 


Module : 


Pt_Info . Prg 


Variable Name: 


Xprm 


Aliases : 


Prm 


Format Of Data: 


Character 


Allowable Value: 


”1 ” , ”2” or ”3” 


Files Variable Used: 


See discriptian above for Xplname. 


Comments : 


See discription above far Xplname. 
Represents roams on the ward . 
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Nodule: 

Uariable Name: 
Aliases : 

Format OF Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



nodule : 

Uariable Name: 
Aliases : 

Format OF Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



nodule : . 

Uariable Name: 
Aliases : 

Format OF Data: 
Allowable Ualue: 
Files Uariable Used: 

Comments : 



nodule : 

Uariable Name: 
Aliases : 

Format OF Data: 
Allowable Ualue: 

Files Uariable Used: 



Comments : 



Nodule : 

Uariable Name: 
Aliases : 

Format OF Data: 



Pt_InFo 

Xpbed 

Pbed 

Character 
"A" or ”B” 

See discriptian above For Xplname. 

See discription above For Xplname. 
Represents beds in a room. 

Discharg . Prg 
Xppack 
None 
Logical 
. T . or . F . 

Discharg . Prg 

Flag to indicate iF a patient had been 
discharged. IF .T. Pt_InFo.DbF has 
discharged patient’s database 
purged . 

Ward . Prg 
Ourpt 

Xptl . . . Xptl2 CL)ard2/UJard3 . Prg] 

Character 

XpFname + XplnamB 

All modules except Intro, Ualid, 

Pt_InFo, UseinFo, naster and Ward. 
SigniFies which patient From the 

Pt_InFo.DbF has been selected by the 
user. The variables with an ”X” 
preFix indicates they are ward, room 
and bed dependent . 

Ward . Prg 
OFreq 

XdcFreq, NFreq 
Character 

Blank, options in Time. Prg or options 
in IUC.Prg. 

All order modules CTransFer, Activity, 
IUA, Lab, Nonitor, Phaml, Pham2, Xray , 
Xray , Diet, Lung, Routine, US and 
all Narder*.PrgD 

Indicates Frequency oF any ordered 
action . 

Ward . Prg 
Passdata 
None 

Character 



54 



Allowable Ualue: 
Files Uariable Used: 
Comments : 



Module : 

Uariable Name: 
Aliases : 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



Module : 

Uariable Name: 
Aliases: 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



Module : 

Uariable Name: 
Aliases : 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



Module : 

Uariable Name: 
Aliases : 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



Module: 

Uariable Name: 
Aliases : 

Format Of Data: 



”Q” number space number 
All order modules Csee OfreqD 
Used to pass data to the external 
expert system. Indicates qualifier 
and value to be used . 

Uard . Prg 
Ptpoint 
Xpoints 
Numeric 

Positive integers >- 0 
All order modules Csee OfreqD 
Assigns points to orders selected by 
user to be used in determining the 
patient classification system. 

Ward . Prg 
Todayonly 
None 
Logical 
. T . or . F . 

All order modules Csee OfreqD 
Assigns a .T. far orders of one day 
frequency far the patient 
classification system. 

Ward . Prg 
Monpoint 
Xmonpt 
Numeric 

Integers 0 or 6 
All order modules Csee OfreqD 
Used to evaluate orders in the Monitor 
.Prg but included in the Orders. Dbf 
to determine patient classification. 

Ward . Prg 
Emopoint 
Xemopt 
Numeric 

Positive integers >- 0 
All order modules Csee OfreqD 
Used to evaluate orders in the Emosup 
.Prg but included in the Orders. Dbf 
to determine patient classification. 

Ward . Prg 
Roupoint 
Xroupt 
Numeric 



55 



Allowable Ualue: 
Files Uariable Used: 
Comments : 



Nodule : 

Uariable Name: 
Aliases : 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 

Comments : 



Nodule : 

Uariable Name: 
Aliases: 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



Nodule : 

Uariable Name: 
Aliases : 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 

Comments: 



Nodule : 

Uariable Name: 
Aliases: 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 

Comments : 

Nodule: 

Uariable Name: 
Aliases : 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 



Positive integers >- 0 
All order modules Csee Ofreql 
Used to evaluate orders in the Routine 
• Prg but included in the Orders. Dbf 
to determine patient classification. 

Ward . Prg 
Ptselect 
None 

Character 

Prm + Pbed + CXptl or XptE . . . Xptl2D 
All modules except Intro, Ualid, 
Pt_Infa, Useinfo and Naster . 
Signifies which patient, the room and 
bed far screen headers. 

Ward . Prg 
Norder 

Order, Xdcorder, Nord 
Character 

Character string up to 27 
All order modules Csee Ofreql 
Patient orders requiring action an the 
part of the hospital staff. 

Doctor . Prg 

Dmenu 

None 

Character 
”1” or ” ” 

Doctor, Doc_Nenu and all order 
modules Cexc. Norder* . PrgD . 

Flag to indicate if a return is to the 
Naster. Prg module or to a doctor 
level module. 

Time . Prg 

Timeopt 

None 

Numeric 

1-41 

All order modules Csee Ofreql except 
Transfer . Prg 

Used to determine frequency of order. 

Time . Prg 

Xtimetime 

None 

Character 

Character string of 4 
Time . Prg 



56 



Aliases : 

Format Of Data: 
Allowable Ualue: 
FUbs Variable Used: 
Comments: 



nodule : 

Uariable Name: 
Aliases : 

Format OF Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



Nodule : 

Uariable Name: 
Aliases: 

Format Of Data: 
Allowable Ualue: 
Files UariablB Used: 
Comments : 



nodule : 

Uariable Name: 
Aliases : 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



nodule: 

Uariable Name: 
Aliases : 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



nodule: 

Uariable Name: 



None 

Character 

Character string of 19 
Emosup and Teach. Prg 

Recieves input for Ncaredb . Dbf related 
to the teaching and emotional 
requirements of the patient. 

N_Diag . Prg 

Nrelate 

None 

Character 

Character string of 25 
Relate_l. . . Relate_4 . Prg 
Recieves input for Ncaredb. Dbf related 
to why the patient has the nursing 
diagnosis chosen. 

N_Diag . Prg 

Ngoal 

None 

Character 

Character string 38 
Goal_l . . . Goal_4 . Prg 

Recieves input for Ncaredb. Dbf related 
to goal achieveable by the patient. 

N_Diag . Prg 

Nassess 

None 

Character 

Character string of 27 
Assess_l . . . Assess. 1 ! . Prg 
Recieves input for Ncaredb. Dbf 

relating objective observations and 
subjective information to the nur- 
sing diagnosis selected. 

N.Diag . Prg 

Assoth 

None 

Character 

Character string of 27 
Assess.l . . . Assess_4 . Prg 
Allows an assessment of the patient 
not currently provided on the 
screen to be entered . 

N.Diag . Prg 
Reloth 
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Comments : 



nodule: 

Uariable Name: 
Aliases: 

Format Of Data: 
Allowable Ualue: 



Files Uariable Used: 
Comments : 

nodule: 

Uariable Name: 
Aliasas: 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



nodule : 

Uariable Name: 
Aliases: 

Format Of Data: 
Allowable Ualue: 



Files Uariable Used: 
Comments : 



nodule : 

Uariable Name: 
Aliases: 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



Provides an option for a time of day 
that is not provided an the screen. 

IUA. Prg 
narderl 
None 

Character 
’’Start IU of” 

’’Alternate IU w /” 

’’Fallow IU w/” 

’’Interrupt IU for” 

’’Start 2nd IU of” 

IUA and IUB.Prg 

Initial portion of the patient order 
for IU therapy. 

IUB. Prg 
Blood 
None 
Logical 
.T. or .F. 

IUB and IUC.Prg 

Flag to indicate whether blood was 
ordered or not. Significant in the 
determining of patient 
classification points. 

Lung . Prg 

Xliter 

None 

Character 
”0 1-2 1 / m ” 

”0 3-4 1/m” 

”0 5-6 1/m” 

”0 7-8 1/m” 

”0 9-10 1/m” 

Lung .Prg 

Xliter is concatenated with the screen 
selection to indicate oxygen flow 
rate for the patient. 

Discont . Prg 
Xdcdate 
Odate 
Date 

Date of the medical order 
Discont . Prg 

Allows user to review date of an order 
to determine if medical order should 
be discontinued. 
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Hadule : 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



nodule : 

Uariable Name: 
Aliases : 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



nodule: 

Uariable Name: 
Aliases: 

Format Of Data: 
Allowable Ualue: 



Files Uariable Used: 
Comments: 



nodule: 

Uariable Name: 
Aliases : 

Format Of Data: 
Allowable Ualue: 



Files Uariable Used: 
Comments : 



nodule : 

Uariable Name: 



Discont .Prg 
Xordpack 
None 
Logical 
. T . or . F . 

Discont . Prg 

Flag to indicate if medical orders are 
to be discontinued. If .T., deleted 
orders are purged from the 
Orders . Dbf . 

Nurse . Prg 

Nmenu 

None 

Character 
’’1” or ” ” 

Nurse, Nursel, and N_Diag.Prg 
Flag to indicate if a return is to the 
Naster . Prg module or to Nurse. Prg 
module . 

Nurse . Prg 

Xlevel 

None 



Character 




’’Category 


I” 


’’Category 


II” 


’’Category 


III” 


’’Category 


IU” 


’’Category 


U” 


’’Category 


UI” 


Nurse . Prg 




Indicates 


patient classification 


level . 




N_Diag . Prg 



Nursdiag 

None 

Character 

’’Comfort, Alteration In: Pain” 
’’Communication, Impaired: Uerbal” 
’’Impaired Physical nobility” 
’’Self-Care Deficit” 

N_Diag . Prg 

Nursdiag is of the four values 

indicated, and directs which branch 
the program will follow. 

N_Diag 

Emoteach 
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Aliases: 

Format Of Data: 
Allowable Ualue: 
Files Variable Used: 
Comments : 



nodule: 

Uariable Name: 
Aliases: 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



Nodule : 

Uariable Name: 
Aliases: 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 
Comments : 



Nodule : 

Uariable Name: 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 



nodule: 

Uariable Name: 
Aliases : 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 

Comment : 



nodule: 

Uariable Name: 
Format Of Data: 



None 

Character 

Character string of 25 
Relate_l . . . Relate_4 . Prg 
Allows a related factor not currently 
provided on the screen to be 
entered . 

N_Diag . Prg 

Goaoth 

None 

Character 

Character string 38 
Goal_l. . .Gaal_4.Prg 

Allows a patient’s goal not currently 
provided on the screen to be 
entered . 

N_Diag . Prg 

Ordoth 

None 

Character 

Character string 27 
Norder* . Prg 

Allows for a nursing order not cur- 
rently provided on the screen to be 
entered . 

Useinf o 
Xuf initial 
Character 

Any first initial of user 

All modules Cexcept Intro and UalidD as a 
concatenation with Xulname. 

Useinf o . Prg 
Xulname 
Xdlulname 
Character 

Character string of length 20 
All modules Cexcept Intro and Ualidl 
as a concatenation with Xuf initial. 
Character string representing the 

user’s last name. Used as a concat- 
tenation with Xuf initial to form 
Curuser . 

Useinf o 

Xcodeword 

Character 
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Allowable Ualue: 



Files Uariable Used: 
Module: 

Uariable Name: 

Format Of Data: 
Allowable Ualue: 
Files Uariable Used: 



Any 5 characters representing a user’s 

password 

Ualid . Prg 

Useinfo 

Xaccess 

Numeric 

0 , 1 , 2 , 3 , or 4 
Master . Prg 
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APPENDIX B 



STRUCTURE CHART 




4 . 1 . 1.1 4 . 1 . 1. 3 

4 . 1 . 1. 2 4 . 1 . 1. 4 



5 . 1 . 1.1 5 . 1 . 1. 3 

5 . 1 . 1.2 5 * 1 . 1.4 
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Legend for Structure Chart 



* — Box labelled 1 

Box Description: Do Introduction/Ualidate User 

» — Box labelled 2 

Box Description: Choose Path 

* — Bax labelled 3 

Box Description: Do Admission Department 

* — Box labelled 3.1 

Box Description: Admit Patient 

* — Box labelled 3.2 

Box Description: Discharge Patient 

* — Box labelled 4/5 

Box Description: Select Ward 

* — Box labelled 4. 1/5.1 

Box Description: Select Patient 

* — Box labelled 4.1.1 

Box Description: Select Doctor Option 

* — Box labelled 4.1 .1 .1 

Box Description: Select Medical Orders 

* — Box labelled 4. 1.1. 2 

Box Description: Discontinue Order 

* — Box labelled 4. 1.1. 3 

Box Description: Admit/Transfer/Discharge Patient 

* — Box labelled 4. 1.1. 4 

Box Description: Print/Revieui Orders 

* — Box labelled 5.1.1 

Box Description: Select Nursing Option 

* — Box labelled 5. 1.1.1 

Box Description: Select Nursing Care Plan 

* — Box labelled 5. 1.1. 2 

Box Description: Revieuj/Print Nursing Care Plan 
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* — Box labelled 5. 1.1. 3 

Box Description: Review/Print Patient Care Requirements 

* — Box labelled 5. 1.1. 4 

Box Description: Determine Patient Classification Level 

* — Box labelled 6 

Box Description: Do Data Processing Department 

* — Box labelled 6.1 

Box Description: Add Neui User 

* — Box labelled 6.2 

Box Description: Delete User 
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APPENDIX C 



USER'S MANUAL 



This software product is a prototype model for the Navy 
Nurse Corps. The user’s manual, as well as the software 
product, presupposes a working knowledge of medicine and 
the normal functioning of a hospital. The user’s manual and 
the software product require a working knowledge of the 
nursing process using the nursing diagnosis and the patient 
classification system. 

This manual contains four subdivisions: the admission’s 

department section, the physician section, the nursing 
section and the system’s administration section. The 
admission’s department section allows patients to be 
admitted or discharged. Admission of a patient allows 
the selection of doctor’s and nursing orders. Admission of 
a patient also initiates the determination of the patient 
classification. The system administration section allows 
users access to all or only one of the program sections. 



I . Beginning the Program 



To begin the program insert disk A:1 into drive A 
[normally the left sided drive, or the top drivel of your 
IBM, or compatible, personal computer. The computer should 
have 640K of internal memory. Next insert disk B:1 into 
drive B. Turn on the power for the monitor, disk drives 
[the computer], and printer [for written reports]. The 
first prompt is for the date. The date format of 4-1-86 is 
acceptable. The computer also accepts a date format of 
4-1-1986. Follow this with <enter> . The next prompt is 
for time. The format of 14:45 is the least number of 
keystrokes, however the computer accepts seconds as well 
Cie. 14:45:30] <enter>. An A> prompt then appears. To 
begin the program, type b: proto Ccapital, mixed or small 
letters] <enter> . 

A manufacturer’s introductory screen appears with a 
prompt of: ’’Insert System Disk 2 and press ENTER or type 

CTL-C to abort”. Remove disk A:1 and insert disk A: 2 into 
drive A and press <enter> . Another manufacturer’s 
introductory screen temporarily flashs on the monitor. 

A screen with a Nurse Corps oakleaf and background 
information, Figure 1, replaces this screen. 
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PROTOTYPE 



A 

PROJECT 

FOR 

THE 

NAUY NURSE CORPS 



BY 

GARY R. HARMEYER 
LC3R NC USN 

MARCH 13BS 

NAUAL POSTGRADUATE SCHOOL 
MONTEREY , CAL I FORN I A 
RELEASE 1 



PRESS ANY KEY TO BEGIN 



Figure 1 



Pregram Passwords 



To oegm the program areas any key to move to Figure la 
which r sou ires the incut of c five letter password . Samoie 
passwords for this program are: level 0 -- mouse, level 1 

-- iyons, level 2 — fiyup, level 3 -- littl, and level 4 
-- getgo. The password allows access further into the 
program, and level indicates which area a user may enter. 
Regardless of password used Cprovided it is an acceptable 
password, see System's Administration section] the next 
screen is Figure 2. 
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Prototype noater Screen 



Date 



Tima 



Currant User: 



Select the Desired Option 
ID Admission's Department 
23 Doctor's flaster 
33 Nursing naster 
43 System Administration 
03 Siyn-Cf f 

Select one numder CO-43 —*> • 



Figure E 

This screen, the Prototype flaster Screen provides a 
branching point to the four major areas. Depending upon 
the oasswcrd used and option chosen, the program moves to 
Figure 3, 4 , 5 or S. Sign-Off is an oation given on mcst 

screens to return to Figure i. 



II. Admission’s Department Personnel 



Access level 0 or 1 will allow access to the 
Admit /Discharge screen CFigure 3D. 



••• SELECT ADHIT / DISCHARGE OPTION ••• 





ID 


Admit A Patient 






23 


Discharge A Patient 








03 Sign-Off 


- 


Current User: 




Select one nuraoer CO-23 ----> 


• 



Figure 3 

A patient can be admitted or discharged, depending on 
the option selected. Selecting option 1, moves the user to 
Figure 3.1. This information creates c patient database 
file. 



The Patient Admission Form 



The Patient Admission Form CFigure 3.11 consists of 17 
input areas. 
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Patient Admission Farm 


Last Name: 








Registration No: 


First Name: 








nodical Diagnosis: 


did Initial: 








Physician : 


Rate/Rank : 








Prognosis : 


FHP-SSN: 


- 






Allergies ; 


Birthdate : 


/ 


/ 




Nursing Ward: 


Ago : 








Roam Numoer : 


Sox : 






i 

1 


Bed : 


Admit Date 


/ 


/ 







Figure 3.1 

After typing each category, press <enter> to move to the 
next category. The amount of information and the 
acceptable inputs ere as fallows. 



Last Name: Allows up to 2C letters in tne patient’s last 

name and automatically capitalizes the first 
letter . 

First Name: Allows up to 13 letters m the patient’s first 

name and automatically capitalizes the first 
letter . 

Did Initial: Allows up to 3 letters in the patient’s middle 

name to accomodate for No Diddle Name CNDN1. 
Capitalizes all letters entered. 

Rank/Rate: Accepts up to 11 letters and capitalizes all 

letters entered. Typical formats would include 



FDP-SSN: 



DS3/N/AD. COL/AF/RET or CIUHUD. 

Family Dember Prefix CFDP1 Code includes the 
sponsor’s Social Security Number CSSN3. Ualid FDP 
code numbers and relationships are: 

01 Sponsor’s oldest child [includes 
stepchildren! 

02 Sponsor’s next oldest child 
03,04, etc. Sponsor’s third oldest, etc. 

20 Sponsor [active duty, reserve and 

retired uniformed services personnel: 
Army, Navy, Air Force, Narine Corps, 
Coast Guard, Public Health Service 
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Birthdate : 
Age : 



Sex : 



and National Oceanic and Atmospheric 
Administration! 

30 Sponsor’s spouse 

40 Sponsor’s dependent mother 

45 Sponsor’s dependent father 

50 Sponsor’s dependent mother-in-law 

55 Sponsor’s dependent father-in-law 

60,61, etc. Other authorized sponsor’s dependents 
00 All other authorized personnel 

Cforeign nationals, including foreign 
military, civilian humanitarians, 
etc . 3 

Use the format 0B/25/50. 

Allows up to 3 letters or numbers. Nixing numbers and 
letters is possible to accommodate for 11N Cll months 
old] or 15D C15 days old] . Age denotes years unless 
N or D are filling the third input space. 

Allows one letter input. Ualid letters are: 
fl - Nale 
F ” Female 
U =* Unknown 

Admit Date: Use the format 12/13/B5. 

Registration No: The local hospital sequential number of 

in-patients admitted during a specified 
period of time. 

Nedical Diagnosis: Diagnosis listed by the admitting 

physician and listed on the admission 
authorization form. Enter up to 24 
letters . 

Patient’s assigned physician, not 
necessarily the admitting practitioner. 

Enter up to 24 letters. 

Allows entry of up to 3 letters. Allow- 
able prognosis codes and descriptions are: 

E Excellent 

F Fair 

G Good 

U Unknown 

GRD Guarded 

P Poor 

Allergies: Patient’s allergies as stated in the 

health record, or by the patient. Enter up to 24 
letters . 

Nursing Ward: Two wards are possible: 2E Ca surgical ward] 

or 3E Ca medical ward] . 

Room Number: Room number is tentatively assigned by the 

admission department, pending confirmation by 
the ward personnel . Room number options are 1 , 
2, or 3. 



Physician : 



Prognosis : 
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Bed: Actual bed assignment combines a roam number and a bed 

letter. Bed letter is tenatively assigned by the 
admission department, pending confirmation by the ward 
personnel. Bed letter options vary between A and B. 
Once the patient file is complete, the program returns to 
Figure 3 for another selection. 



Discharging a Patient 



Selection 2 [Figure 33 moves the user to Figure 3.2 
[Discharge A Patient Screen] . A patient is uniquely 
identified by listing of FMP-SSN. The screen displays one 
patient’s FMP-SSN, name and practitioner at a time so the 
user can decide which patient to discharge. The user can 
discharge more than one patient before returning to the 
Admit/Discharge Screen [Figure 33. 



III. Physician Personnel 



Figure 2 [Prototype Master Screen! has two valid choices 
for the physician, 0 [Sign-Off 3 and 2 [Doctor’s Master!. 
Option 0 returns the physician to the Introductory Screen 
[Figure 13. This selection implies intent to leave the 
computer session. 



Selecting a Patient 



Selection 2 [Doctor’s Master! advances the physician to 
Figure 4 [Nurse’s Station Selection]. The physician is 
able to choose patient ward or return to the previous screen 
[Figure 23 . 
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•• Nurse’s Station Selection •• Date Ti»e 

••• Select Nursing Unit to Display Patients ••• 



13 2E Surgical ward 
2 3 3E nodical ward 



03 Sign-Off 33 naster Screen 



Current User. 




Select one numoor CO-33 — 


— > ■ 






Figure 4 








atiert SeiectiC' 



were -Z Surgical 



Select PctiE 





Rn 


BE 


13 




A 


23 


-L 


B 


33 


2 


A 


43 


2 


B 


53 


3 


A 


63 


3 


3 



03 Sign-Off 



73 nastar Screen 



Current User : 



Select one numaer CO-73 ----> • 



Figure 4.1a 

Selection 1 CFigure 41 follows with Figure 4.1a CPatient 
Selection For Ward 2ED. Patients assigned to Ward 2E by 
the admissions department appear in their room and bed 
assignments. Choosing any one of the six patients advances 
the user to Figure 4.1.1, the Doctor’s Master Screen. 
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ward Room Bod 



Patient 



R03 « 



Date 



lime 



• •• DOCTOR * S HA STEP SCREEN 



13 Order Entrg 

23 Admit / Transfer / Discnargo Patient 
3) Review nodical Orders 
13 Print nodical Orders 
53 Discontinue ftn Order 



03 Sign-Cff 53 naater Screen 

Current user: 

I Select one numDer CO-63 > ■ 



Figure 4.1.1 

Ward, room, bed. catient and registration number appears on 
tne second line cf each of the screens tc assure prooer 
patient identification is oresent . The identical sequence 
fallows for selection 2 CPatient Seieotion for ward 
EE ] . blaster Screen is an cation on most screens and 
differs slightly from the Sign-Off option. Sign-Off is the 
cpcroonate selection if the computer session is over. 
Master Screen allows the user to select a different patient 
to enter orders on without requiring the physician to redo 
the user identification process. 



Doctor Selection Categories 



Figure 4.1.1 CDoctor’s Master Screen! is a branching 
screen. Selection 1 advances the user to Figure 4. 1.1.1 
CDoctor’s Order Menu!. This option allows the physician to 
enter patient orders associated with medical treatment. 
Selection E moves the user to Figure 4. 1.1. 2 CAdmit/ 
Transfer/Discharge Screen!. These orders impact the 
admission’s department as well as the patient care areas. 
The admissions department must enter the patient into the 
computer system prior to their selection by the physician 
for order entry. The selection of ADMIT officially enters 
the patient admission status in the doctor’s orders. 
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ward Room Bod 



Patient 



Reg • 



Date 



Il«B 





•• DOCTOR'S ORDER HEN’J ••• 


13 Activity 


63 Pnarmacj 


23 Diet 


j 73 Radiology 

l 


33 IU’s / Blood 


03 Respiratory Therapy 


M3 LoDoratory Tests 


j 93 Uital Signs 


53 namtcring 


1 

1C3 ward Routines 



CO 3 Sign-Off 113 


Doctor's naste- Screen 123 naste- Screen 


Current user 

! 


_aiect one nuftiDer COO-123 ---> •• 




F igure 4 . 1 . 1 . 1 



Rev: 


.ewing Patient Orders 


Selection 3 and 4, 
only in tne location 


of the Occtcr’s Master Screen vary 
cf their output. Selection 3 displays 



catient medical orders on the monitor screen. Figure 
4. 1.1. 3, is a screen output to review medical orders. 
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Patient Orders For: nary niser 

Prose — Ctrl and S — Keys to Pause The Scrolling If Necessary 
Page No. 1 
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Time 
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CBC 




Dally 


0 


0600 


N. 


Lyon 


no 


01/12/06 


10: 19:54 


Platlets 




Daily 


0 


0600 


N. 


Lyon 


nD 


01/12/05 


10:20: 10 


Glucose 




Dai ly 


0 


0600 


N . 


Lyon 


HD 



Figure 4 . 1 . 1 . 3 

Selection 4 provides the same medical order outout on the 
arinter. Selection 5 [Discontinue An Order] advances the 
chysician tc Figure 4. 1.1. 4. The scree*' disalays each 
medical order on the selected oatient uitn the cation tc 
discontinue any obsolete orders. 



Selecting Doctor’s Orders 



The Doctor’s Order Menu [Figure 4.1.1.13 provides a menu 
to select a medical treatment category. A rudimentary 
selection list of medical orders follows each of 
the ten major headings. Selection 1 [Figure 4.1.1.13 moves 
the program to Figure 4.1.1.1a. 
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word Room Bod 



Rati ont 



Reg * 



Date 



T ime 



SELECT ACT IUITY LEUEL 



1] 


Ambulate ad 


lib 


7 3 


Dangle Legs 


23 


Ampu late u> / 


Assistance 


q: 


Keen an BadK 


3 : 


Strict Bodroat 


33 


rio j Sno^or 


43 


bedrest w/ BRP 


103 


Turn Patient 


53 


Bedaiae Commaao 


113 


Turning Frame 


63 


C03 to Strecner w/ Assist 


1 


Up in Chair u»/ Assist 


03 


5ipn-Cf f 


133 Doctor's Order Szreo~ 


143 naster Screen 


Curronc 


user . 


i 

Select one numaor COO-143 “•> 



F igure 4.1.1.1a 



Twelve selection criteria Follow. UJhBn entering a 
number less than 10, enter either 03 or 3 <enter> to 
advance tne crcgram . Some selections reauest c time ar 
freauency. Tnese selections are E, S, 7, 10, 11, and IE. 

which move the crcgram tc Figure 4.1.1.1b C Select 
Time/ Freauency Cation] . A list cf 3S actions follow. 
Selection 40 is a brief on-line heic fccility [Figure 
4.1.1.1c] . A selection cf 41 returns the program tc the 
crevious screen with no frequency indicated for that order. 
Options 5, 8, 9, E4 , E9 , 33, 35, 37 and 39 are one time 
selections. All otner options are ongoing until 
discontinued . 



76 



ward Room Bod 



Patient 



Roy * 



Date 



T lie 



••• SELECT T I HE/ FREQUENCY OPTION ••• 



1 3 


PRN 




* Daily 3 


| 20 3 


2200 


! 303 


0 


Shi f 


23 


2 1-2 Mr 


PRN 


1C 3 


02C0 




2400 


313 


SM 


10 


3 3 


a 2-3 Mr 


PRN 


111 


0400 




1 


! 323 
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6 Hr 


43 


2 3-1 Mr 
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! 223 
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X 
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0B00 
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5 3 


On Call 
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1000 


| 24 3 
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35 3 
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63 
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153 
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TID 








73 


MS 
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1*100 
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A I 


36 3 


0 


2 Mr 


83 


x 1 




173 


1600 


I 


PC 


37 3 


X 


12 


S3 


Today C? 


1 


IB 3 


1800 


j 29 3 


0 9 Mr 


393 


2 


1 Mr 




.... 


i 

I 


123 


2000 


j 293 


x 3 


39 3 


X 


24 






40 3 Helo 


41 3 


Ratur^ Z3 1 


Calling Scraon 







Current user: 



Select one numaer CC1-413 ---> •• 



F igure 4.1.1.1b 

Selection 8 from the Doctor’s Order Menu CFigure 
4. 1.1. ID provides possible diet options for the selected 
patient. Options 17 and 18 move the program to Figure 
4.1.1.1b CSelect Time/Frequency OotianD . Selection 17 
reauires the numner of bags per hours far continuous 
tube feedings. Selection IS reauires c frequency fcr ocius 
tube feedings. 

Selection 3 from the Doctor’s Order Menu CFigure 
4. 1.1. ID provides possible intravenous/blood options. The 
screen design varies from other medical treatment order 
screens, to accommodate for the unique characteristics of 
this order line. Select IU Order CFigure 4.1.1.1eD is the 
first screen of a series of three. Select IU Order has up 
to 10 selections. Selections 5 through B are one time 
orders which then returns to the program for another 
selection. Selection 1 through 5 moves the program to 
Select IU Solution CFigure 4.1.1.1FD. This requires a 
selection from options 1 through B. The program moves to 
Select Infusion Rate CFigure 4.1.1.1gD For the user to 
select the desired fluid infusion rate. Following the 
selection of infusion rate, the program returns to Select 
IU Order CFigure 4.1.1.1eD. 

Selection 4 from the Doctor’s Order Menu CFigure 
4.1.1.13 displays laboratory test options. For each 
selection on the Select Laboratory Test CFigure 4.1.1.1h3, 
the program moves to the Select Time/Frequency Option 
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CFigure 4.1.1.1b] . Selections are for additional 
information regarding the order. 

Selection 5 from the Doctor’s Order Menu CFigure 

4. 1.1.1] provides possible monitoring options. For some 
selections on the Select Monitoring Requirements screen 
CFigure 4.1.1.11], the program moves to the Select 
Time/Frequency Option CFigure 4.1.1.1b] for addition 
information. The selections requiring time or frequency 
information include 3, 5, S, 7, 8, 3, 11, 12, 12, and 15. 
Other selections are continuous. 



Selection 6 from the Doctor’s Order Menu CFigure 

4. 1.1.1] provides pharmacy options. For all selections on 
the Select Desired Medication / Dosage screens CFigure 
4.1.1.1J and Figure 4.1.1.1k], the program moves to the 
Select Time/Frequency Option CFigure 4.1.1.1b] for 
Frequency of dosage. Each screen contains divisions of 
major drug categories, of individual drugs, and dosage. A 
help Facility follows CFigure 4.1.1.11] clarifing route 
abbreviations used on the screen. 

Selection 7 From the Doctor’s Order Menu CFigure 

4. 1.1.1] provides radiology options. For all selections on 
the Select Xray screen CFigure 4.1.1.1m], the program moves 

to thB Select Time/FrequBncy Option CFigure 4.1.1.1b] for 
additional scheduling information. 

Selection 8 from the Doctor’s Order Menu CFigure 

4. 1.1.1] provides possible respiratory therapy options. 

For each selection on the Select Respiratory Therapy 
Options screen CFigure 4. 1.1. In], except 7 CUentilator is 
continuous], the program moves to the Select Time/Frequency 
Option CFigure 4.1.1.1b]. After selecting a route Coption 
9 through 13], a flow rate Cletter A-E] selection follows. 

Selection 8 from the Doctor’s Order Menu CFigure 

4. 1.1.1] provides possible vital signs options. For some 
selections on the Select Uital Sign Option screen CFigure 
4.1.1.1o], the program moves to the Select Time/Frequency 
Option CFigure 4.1.1.1b]. Time/Frequency Option screen 
provides selections for additional information with options 

1 and 5 through 11. Departmental policy defines select.ons 

2 through 4 . 

Selection 10 from the Doctor’s Order Menu CFigure 

4. 1.1.1] provides ward routine selection. For many 
selections on the Select UJard Routine screen CFigure 
4.1.1.1p], the program moves to the Select Time/Frequency 
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Option CFigure 4.1.1.1b! for added information. Selections 
advancing the program to the Time/Frequency screen are: 3, 
4, 6, 0, 16, E0-E3, 20 and 20. Selections regarded as one 
time only orders are: 2, 5, 7, 12-14 and 24-27. All other 
selections are ongoing until discontinued Cselection 1, 
9-11, 15 and 17-191. In the context of this software 
project, option 4 CComplex Drsg Change! is a dressing 
change requiring 30 minutes or more to complete. A 
dressing change requiring less time is a simple dressing 
change Coption 201. 



IU. Nursing Personnel 



Figure 2 CPrototype Master Screenl has two valid choices 
for nurses, 0 CSign-Offl and 3 CNursing Masterl. Option 0 
returns the nurse to the introductory screen CFigure 11. 
Option 0 implies intent to leave the computer session. 



Patient Selection 



Selection 3 CNursing Masterl advances the nurse to 
Figure 5 CNurse’s Station Selection!. The nurse selects 
the desired ward or returns to the previous screen CFigure 
21 . 



Selection 1 CFigure 51 follows with Figure 5.1a CPatient 
Selection for Ward 2E1. Patients assigned to Ward 2E by 
the admission’s department appear in their room and bed 
assignments . 
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•• Nurse's Station Selection •• 



Date 



Time 



••• Select Nursing Unit to Diealcj Patience ••• 



1 1 2E Surgical ward 
21 3E nodical word 



01 


Sion-Off 




3) 


naster 


Screen 


Currant user 


! 

i 


Select one number 


CO-31 - 


— > • 






F igure 


5 






•• Patient 


Selection •• 


Word 2E 


Surgical 


Date 


Tima 



Select Patient 



p— Drn 

111 ^ 
2 : i b 

31 2 A 
43 2 B 

SI 3 A 
SI 3 B 



01 Sign-Off 



Current Ueer : 



POZ I ENT 



71 naster Screen 



Select one number CO-71 ----> • 



Figure 5.1a 

Choosing any one of the six patients advances the user to 
Figure 5.1.1, the Nursing naster Screen. LJard , room, bed, 
patient and registration number appear on the second line 
of each of the screens to assure proper patient 
identification. The identical sequence follows for 
selection 2, Patient Selection for Ward 3E CFigure 5.1bl. 
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Master Screen is an option on some screens and differs 
slightly from the Sign-Off option. Sign-Off is the 
appropriate selection if the computer session is over. 
Plaster Screen allows the user to select a different patient 
to enter a care plan on without requiring the nurse to redo 
the user identification process. 



Nursing's Category Options 

Figure 5.1.1 [Nursing Master Screen] is a branching 
screen . 



ward Room Bod Patient 



Ke j 



Date 1 1 mo 



••• NURSIN3 HASTEP SCREEN *•• 



: : 



a: 



Enter / 1 nactivato Nursing 
Rev i bj Nursing Care Plan 
P ::r: Nursing Caro ?ic~ 
Externa* Patient Z.osslf 



Care Plan 

! 

I 

i 



cat 



S3 Review Patient Care Requirements 



C3 Print Patient Care Requirements 



Interne. Patient Close: f : cccio- 



C3 5:q — Cf f 



5 . "'aster bersp" 



Current user. , 

Select one numqer CO-03 ---•> • 



F igure 5.1.1 

Selection 1 advances the program to Figure 5. 1.1.1 [Select 
The Desired Nursing Care Plan Function] . This option 
allows the nurse to enter or inactivate a patient’s care 
plan . 

Selection 2 and 3, on the Nursing Master Screen vary 
only m the location of their output. Selection 2 displays 
the nursing care plan on the screen. Figure 5. 1.1. 2, is a 
screen output For Review Nursing Care Plan. Selection 3 
provides the same nursing care plan Information on the 
printer. Selection 4 [External Patient Classification] 
requires the nurse to leave this portion of the prototype 
project [see Expert System Supplement]. 
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Selection 5, of the Nursing Daster Screen CFigure 
5.1.13, Review Patient Care Requirements, displays all 
active orders on the patient. Patient Care Requirements 
are the total active medical and nursing care orders for a 
particular patient. Figure 5. 1.1. 3 is a screen output for 
Review Patient Care Requirements. 



Press -- Ctrl and 5 — Keys To Pause The Scrolling If Necessary 
Page No. 1 

01/12/85 



Date Time Order Frequency Practitioner 



01/11/85 


10:05:20 


Teach Alt Coping Strategies 








G. 


Harmey or 


RN 


01/11/85 


12:08:0? 


Assist Bed To tuneelchair 


TID 






N. 


Lyons HD 




01/11/86 


13: 10:15 


Self/nimmum Care 








G. 


Harmey er 


RN 


01/11/85 


13: 10:53 


Keep Commode 0 Bedside 


TID 






G . 


Harmeyer 


RN 


01/11/85 


1 4 : 13:4? 


Up in Chair u/ Assist 


TID 






N . 


Lyons HD 




01/11/85 


14: 14:23 


Diaoetic Diet 








N. 


Lyons HD 




01/12/85 


10: 17:14 


Clar ide 


Daily 


0 


0500 


I. 


Bui 


HD 




01/12/85 


10; 17:40 


Sodium ' 








T. 


Bui 


no 




01/12/85 


10: 19:00 


Amylase 








i . 


Bui 


no 




C1/12/B5 


10: 18:25 


Potassium 


Daily 


0 


0500 


T . 


Bui 


nn 




01/12/85 


10: 19:55 


C02 


Daily 


0 


0600 


T . 


Bui 


no 




01/ 12/85 


10; 13:25 


CBC 


Daily 


3 


0500 


T 
X . 


Bui 


HD 




01/12/85 


10: 12: 54 


Flatlets 


Daily 


0 


0500 


T . 


Bui 


no 




Cl/12/85 


10:20; 18 


Glucose 


Dai 1 * 


ni 


0500 


T 


Bui 


no 




01/12/85 


10:22:02 


Intake & Cutout 


’■rn 






"T 


Bui 


nc 





’ 1 rn irp C *> 

- t* *•* - C w . - 



Selection 6 provides the same information on the printer. 
Selection 7 C Internal Patient Classif ication 3 , gives 
the patient classification level and point value — 
Figure 5. 1.1. 6 CAppendix F3 
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•*1 ft I ;■) I] 



Patient: nary Hiser 



Is In: Category II 

Point Ualue Is: 27 



Figure 5 . 1 . 1 . 6 



Nursing Diagnosis 






Selection 
ran 



r 

»» I — ^ 4 

Fur.at.icnD 
Enter New 



1 on the Nursing Master Screen, advances the 
pure 5. 1.1.1 CSelect The Desired Nursing Cere 



. The nurse has tuic major choices: selection 

Care Plan and selection 2 -- Inactivate 
ions of Care Plans. Selection 1 advances the program 
. igure 5.1.1.1a [Select Nursing Diagnosis]. 
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••• SELECT NURSING DIAGNOSIS ••• 
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Self-Care Deficit 


03 
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53 


Nurse's Master Screen 63 Master Screen 


Current 


user . 


Select one number CO-53 ----> • 



Figure 5.1.1.1a 



Of the 52 nursing diagnoses acoroved through the 5th and 
5th National Conferences of the North American Nursing 
Cicgnosis Association a recresentative four were chosen. 



Patient Assessment 



Following the selection of one of the diagnoses, the nurse 
advances to one of the four assessment screens CFigure 
5.1.1.1b, 5.1.1.1k, S.l.l.lq, S.l.l.lyl. 
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Ward Room Bod Patient Reg * Date Time 

•• SELECT NURSING ASSESSMENTS FDR A PATIENT WITH •• 

•• NURSING DIAGNOSIS OF COMFORT ALTERATION IN PAIN •• 
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Figure 5.1.1.1b 

Assessments, related factors, goals and nursing orders 
used are not an inclusive list, but rather generic ODtions 
to build on. Any assessment, related factor, goal Dr craer 
can be changed tc aetter reflect the individual nature cf 
their hcscita! setting. Tc select any number less than 10, 
enter either 03 cr 3 <er,ter> to cdvance the program. 



Related Factors and Patient Goals 



Following the assessment selection, the program moves to 
the related factor associated with the diagnosis CFigure 
5.1.1.1c, 5.1.1.11, 5.1.1.1r, 5.1.1.1zD. The patient goal 
screen follows CFigure 5. 1.1. Id, 5.1.1.1m, 5.1.1.1s, 

5 . 1 . 1 . laa 1 . 
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Figure 5.1.1.1c 
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Current user 



Select one numper Cl-53 ----> 



F igure 5 . 1 . 1 . Id 



Nursing Orders 



ThB patient goal selected, triggers the appropriate 
patient order screen. If patient diagnosis selection is 
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comfort alteration in: pain, and the goal selected From 

Figure 5. 1.1. Id is 1, 2, 3, or 5, Figure S.l.l.l.e appears 

To obtain additional information on some of the nursing 
orders, the program may advance the nurse to Select Time / 
Frequency Option CFigure S.l.l.lg] with its help facility 
CFigure S.l.l.lhD; a teaching module CFigure S.l.l.liD to 
illicit the type of teaching necessary; or an emotional 
support screen to determine the type of emotional support 
required CFigure 5.1.1.1J3. With the selection of goal 4, 
the program displays Figure C5.1.1.1F3. 
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Figure 5 . 1 . 1 . le 
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Ward Room Bod 



Patient 



Reg # 



Date 



Time 



•• SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS *• 
•• DEHONSTRATES SKILLS & KNOWLEDGE TO ACHIEUE GOALS •* 

• loach Stress Reduction Techniques 
13 Deep Breathing 
23 Progressive Relaxation 
33 Relaxation Response 
4D Diversional Activity 
53 Other: C 3 



Current User: 



Select one number C1-5D 



' F igure 5 . 1 . 1 . If 

Ecch of the four nursing diagnoses follows the same 
sequence: assessment, related factor, goal and nursing 
order with generic type responses. The only variation lies 

in the goal section of the Se 1 f -Tare Deficit diagnosis 
[Figure 5. 1.1. leal. Levels C through h are self care 
levs s as defined in COMPUTER I ZED NURSING CARE PLANNING 
UTILIZING NURSING DIAGNOSIS and referenced i n the mom text 
of the thesis. Current level of care required is also 
asked for . Current level cf care enters into 
the patient classification determination. 

A caveat exists regarding the use of the "other order” 
option provided by each of the nursing order screens. Many 
nursing orders are directly linked to the internal 
processing of the patient classification system. The use 
of the "other order” may give a more accurate order, but 
will not enter points into the patient’s classification 
level. If orders are identified that need to be added, and 
affect the patient classification, they should be 
incorporated into the program, rather than being typed in. 



Inactivate Portion of Care Plan 



In addition to selection 1 on the Select Desired Nursing 
Care Plan Function screen [Figure 5.1.1.13, the nurse can 
choose to inactivate a portion of the care plan by 
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selecting option 2. Figure 5. 1.1. lag displays nursing care 
plan information for review and inactivation as needed. 

U. System Administration Personnel 



Access level 0 or 2 will allow the user access to the 
System Administration section of the program. The target 
user group for this section is the department responsible 
for issuing access levels and recording user’s information. 
Figure 6.1 provides the format used to enter user’s 
inf ormation . 



••• SELECT ADD / DELETE A USER ••• 



1 j Add A User 



Delete A user 



0 2 Si 



r» 



c c 



Current user: 



5elect one numder CO-22 ---- > • 



Figure 6 
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USER INFORHATION 



••• THIS INFORHATION IS CONFIDENTIAL ••• 



First Initial: 

ruddle Initial: 

Last Name: 

Category of 
Requestor : 

Password : 

Access Level 



Figure 6.1 



The User I r.f armct ion screen consists cf 6 input nreas. 
After inputting the information, press enter to move to the 
next category. The amount of information, and the 
aooeataole incuts ore as follows: 

First Initial: Allows only one character to be enter- 



riiddie Initial: 
Last Name: 

Category of 
Requestor : 



Password : 
Access Level : 



ed, automatically capitalizes it. 
places a period after the letter and 
advances the user to the next field. 
Parameters are identical to First 
Initial . 

Allows entry of up to 20 letters, 
capitalizes the first letter and 
advances the user to the next field. 

A three letter field for a coded 
category . 

Could include rate, rank or education- 
al background. Used for user infor- 
mation only and is not otherwise 
incorporated into the program. 

A 5 letter or number cade selected by 
the user to log into the system. 
Authorizes a person to enter different 
sections of the software project. 

Five levels of access are available: 

0 Unlimited access to all sections of 
the software project. 

1 Restricted to the admission’s sec- 
tion of the software project. 
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Restricted tc the data base section 
of the software project. 

3 Restricted to the doctor section of 
the software project. 

4 Restricted to the nursing section 
of the software project. 



Expert System Supplement 



There are two ways far the nurse to obtain a patient 
classification, externally or internally Cselection 4 and 7 
respectively on Figure 5.1.1 — Nurse’s Master Screen!. 
Selection 4 loads a qualifier and value number for each 
patient order that corresponds to a critical indicator. 

This is the expert system information to calculate the 
patient classification level . 

To calculate the external patient classification system 
choose selection 4, Figure 5.1.1. A manufacturer’s 
sign-off message appears at the bottom of the screen 
indicating that you are leaving dBase III. Remove disk A: 2 
and insert disk A.-3. Type b:expert <enter> . The expert 
program loads into memory the necessary information to 
calculate the patient classification. The program asks 
some preliminary questions [three! which require no response 
except <enter> . The expert system program gives the 
user an opportunity to see the rules used to arrive at the 
classification level. 

Selection 7 of Figure 5.1.1 works in a similar manner to 
selection 4, without leaving the main program. Selection 7 
provides a much quicker patient classification level, but 
is not able to provide the user with the information an how 
the classification was derived. 

During the programming phase of this project, medical 
orders that corresponded to critical indicators were tied 
to their corresponding medical order, ie. vital signs QD 
receives a patient point value of 1, apnea monitor receives 
a monitor paint value of 6. The reason vital signs has a 
patient point value and apnea monitor has a monitor point 
value is because the vital sign’s critical indicator 
relates directly to critical indicator points. This is not 
true of an order for an apnea, cardiac or pressure monitor. 
In the latter case the patient point total would remain at 
G even if three monitors were ordered. Where point totals 
are not additive or do not directly translate to patient 
points — the cardiac, apnea, temp and pressure monitors; 
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S&A, SpGr, Guiac and spin HCT ; and emotional support — 
special point totals are calculated prior to their 
translation to a patient point totals. 



Listed in Appendix F are qualifiers and their values 
used to derive the expert system’s rules. Through the use 
of 382 rules, the patient classification level is derived. 
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APPENDIX D 



PATIENT CLASSIFICATION CRITICAL INDICATORS 



in 

121 

141 

(81 

121 

(81 

(21 

(3) 

(61 

(21 



( 6 ) 

(21 

(61 

(141 



Vital sign* (110 or lei- 
Vital signs q4h or x 6 
Vital signs q2h or x 12 
Vital signs qlb or x 24 

urtake and output q8b or x 3 

In taka uni output q2h or x 12 

G reals doe or fundee checks q2h or x 12 

I taro checks q4Ji or x 8 

Ntmro charts q2h or x 12 

CVP or 1C? InMuil q2b or x 12 



VITAL SIGNS (MANUAL TPR. 8 PI 



(21 
(21 
(21 
• (61 

MONITORING 

* tfiT 

(61 
(41 
(21 
(21 
W 
(21 



Racial or axillary tamos or apical paisa 010 or mars 
femora l or pedal paisas or FHT q4h or mars 
Tilt tasts q4b or mors 
Post-op. post-partun or post-newborn 



Car dia cupp ea iteropipressam moaitorj umt additival 
Transeutaoeoes monitor \ 

A-lioe or 1C? Imam tori or Swae Cant set-up 
A Tina or 1C? (monitor) rattling q2h or x 12 
PAP (PA wrongs reading q4b or x 8 
PAPfPA wedge reading qZh or x 12 
Cardiac output HQ or x 3 

ACTIVITIES OF DAILY LIVING 



Urfant/toddlar ora { *5 years) . 

Surt/ramimaJ cars adult or dfaiid » 5 ysarsi 
Artis tad cars ( » 5 yaars) - positions sail 
Co inputs cars ( » 5 ysarsi assist with poaibunieg 



tet 

(41 

1141 

(81 

FEIOING 



Total cars ( » 5 yaarsi • posidoa and skia cart q2h 
Extra tioee change and psrrisi hath 2x par shift 
Tara mg frama (2 staff to tarn q2hl 
Pses rtcraadoaiodsamdna • 0-12 yrs (exclude HBN) 



(21 Tuba feadiog (enntiaooasi • par bag chsags <21 

(5) Tuba fuad (boieai adaitichiidioeeaata q4b or x 8 (12) 

(61 Adoit rasa is » 5 yaars (spoon fasd x 3) (24) 

(10) Child oasis 3 5 yaars Ispooe faad x 3) 

■ TngATMgNTS/PWOCgDURgS/MEPICATIQNS 

Simple *16 and 



Urfsatinaoasta barrio x 1 faadioq 
isfaoboeoaeti bortio q4b or x 8 
Infaatinaaaata bottle q2h or x 12 



(21 

(21 

(2) 

( 2 ) 

121 

( 2 ) 

( 2 ) 

( 2 ) 

(21 

(21 

( 2 ) 

( 21 * 

121 

( 2 ) 



30 Minutes Total 

Start IV or MG insarnoa or fciay insernoo or EXG 
Snrgtcai prep or toasas or aca wrapsielaatie stockiogs 
SJopU druxaioq x L or tuba care x 2 (exclude track), Fairy 
cars x 2 

SAA or SpGr or Guiac or spia HCT x 8 
Lab stndks x (L* ASG stick or tdood caltara x 3 
Medkatioea q3b - q8b {exrsade IV) • ( op to 12 trips] 

Imgabeea or iesdJladotta x 4 or lass 
Restraints (2 or 4 point or poaey) 

Assist to chair or lOatLh ai tad return x 3 
Assist ta art Ik sad rttara x 1 
Infant drcaoctnoo or phototherapy 
laoiadoa (gown & giove x 8) 

Accompany patient off ward » IS minutes A * 30 rmnotaa 
0tb«r activities repairing » IS annates A * 30 cmnotas 

RESPIRATORY THERAPY 



Comoiei > 30 minatas and « 1 Hoar Total 



141 

(41 

(41 

(4) 

(4) 

(41 

(41 

(4) 

(41 

1121 



Cbast tuna insertion at iumaar puncture 

Tborecaa tests or parscamasts 

Camples dressing change ( » 30 mi notes to compinel 

Straight catbatanxatxoa x 4 or mam 

Medkadees q2b or man (exclude (VI I » 12 trips! 

Usage of action exercises x 3 

Accompany patient off ward > 30 annates 

Other actnrfdas re pairin g » 30 imantes and-* 1 hoar 

Transfer fln-koasej - assess & orient 

law ad cm ion - man A oriaat 



S pecial Procedorea » 1 Hoar ■* 4 Hoars 

(8) Ei co compute onur repairing condauous staff ana a dance 



(21 


Oxygee therapy or oxyhood 


12) 


Cheat poimooery therapy B1Q or x 2 


<21 


Incentive spirometer or CA0B q4b 


(41 


Cheat pulmonary therapy q6h or x 4 


(21 


IPPB or meximist BIO or x 2 


161 


Chest poimooery therapy q4h or x 8 


!4l" 


IPPB or meximist q6h or x 4 


(2) 


Suctioning q4h or x 8 


161 


IPPB or meximist q4h or x 6 


141 


Suctioning q2h or x 12 


i8) 


Croup tint or mist tant 


141 

(10) 

IV THERAPY 


Tracheostomy care x 3 
Ventilator 


•.41 


KVQ (change bottla BID or (ess) 


t2T 


Medication q8h or x 3 


<41 


Heparin lock or Broviac 


131 


Medicadon q6h or x 4 


(81 


Simple (change bottla T10 or CLIO) 


14) 


Medication q4h or x 8 


<81 


Complex (two or mom sites or change bottla q4h or 
moidiumea linal 


(21 


Blood products (each unit) 



Teachin g 



121 Group taachinq (41 

•4) Preoperativa teaching (4) 

(4) Structured teaching (La. di aba tic. cardiac, coiostomy care. 

post parrara first 24 hrx. newborn care, discharge! (6) 



TEACHING AND EMOTIONAL SUPPORT 
t lVUiwT faw documfwdl 

Emotional Su p port (in excess of 30 minutes q 24 hours.) 



Paoanufamuy suppnn iix. anxiety, denial, loneliness, etc.! 
Modification lifestyle (La. new prosthesis, body image, 
bahavior mndrficarino, vtcj 

Sensory depnvatioo (La. retarded, deaf, blind, language 
bamer. bilateral rye patches, confused, combative, otej 
Maximum poiots for smodonal support 



( 10 ) 

CONTINUOUS 

(961 Padant repairing 1:1 coverage ail shifts fix. pamonaai dialysis, camoativa. etej 

(146) Paoent repainng greetar than 1:1 coverage all shifts (La. ventilator with orultiaia vasopressors. 1A8P. etcj 



Dec 1934 

THE NAVY MEDICAL DEPARTMENT'S WORKLOAD MANAGEMENT 
SYSTEM FOR NURSING , May, 1985, P. 10 . 
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QUALIFIERS 



1. Uital signs order is: 

□ID or less 
q4h or x S 
q£h or x IE 
qlh or x £4 
Not ordered 

Used in rules: 1-S 

E. Rectal or axillary temp order is: 

Rectal temps less than QID 
Axillary temps less than QID 
Rectal temps QID or more 
Axillary temps QID or more 
Not ordered 

Used In rules: E-10 

3. Patient order For apical pulse is: 

Apical pulse less than QID 
Apical pulse QID or more 
Not ordered 

Used in rules: 11-13 

4. Patient order for Femoral pulse is 

Femoral pulses are less than q4h 
Femoral pulses q4h or more 
Not ordered 

Used in rules: 14-16 

5. Patient order For pedal pulse is: 

Pedal pulses less than q4h 
Pedal pulses q4h or more 
Not ordered 

Used in rules: 17-13 
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6. Patient order For FHT is: 



FHT less than q4h 
FHT q4h or more 
Not ordered 

Used in rules: 20-22 

7. Patient order For tilt test is: 

Tilt test less than q4h 
Tilt test q4h or more 
Not ordered 

Used in rules: 23-25 

8. Patient order For postop/post partum/post-newborn vital 
signs is: 

Post op vital signs 
Post-partum vital signs 
Post-newborn vital signs 
Not ordered 

Used in rules: 25-29 

9. Patient order For intake & output is: 

Intake 8 output less than qBh or x 3 

Intake 8 output at least qBh Cx 3D but less than q4h 
CxBD 

Intake 8 output q4h or x 6 

Intake 8 output q2h or x 12 

Intake 8 output qlh or x 24 

Not ordered 

Used in rules: 30-35 

10. Patient order For circulation checks is: 

Circulation checks less than q2h or x 12 
Circulation checks q2h or x 12 
Circulation checks qlh or x 24 
Not ordered 

Used in rules: 35-39 
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11. Patient orders Far neuro checks is: 

Neuro checks less than q4h or x 6 
Neuro checks q4h or x 6 
Neuro checks q2h or x 12 
Neuro checks qlh or x 24 
Not ordered 

Used in rules: 40-44 

12. Patient order For CUP manual readings is: 

CUP manual readings less than q2h or x 12 
CUP manual readings q2h or x 12 

CUP manual readings qlh or x 24 

Not ordered 

Used in rules: 45-48 

13. Patient order For ICP manual readings is: 

ICP manual readings less than q2h or x 12 
ICP manual readings q2h or x 12 

ICP manual readings qlh or x 24 

Not ordered 

Used in rules: 49-52 



14. Patient order For Fundus checks is 

Fundus checks less than q2h or x 12 
Fundus checks q2h or x 12 
Fundus checks qlh or x 24 
Not ordered 

Used in rules: 53-56 

15. Patient order For transcutaneous monitor is 

Transcutaneous monitor 
Not ordered 

Used in rules: 57, 58 

16. Patient order For an A-line set-up is 

A-line set-up 
Not ordered 

Used in rules: 59, 60 
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17. Patient order for an ICP monitor set-up is: 
ICP monitor set-up 



Not ordered 




Used in rules: 


61, 62 


18. Patient order 


for Swan-Gantz set-up is: 



Swan Ganz set-up 
Not ordered 



Used in rules: 


63, 64 


19. Patient order 


for A-line reading is: 


A-line reading 
A-line reading 
A-line reading 
Not ordered 


less than q2h or x 12 
q2h or x 12 
qlh or x 24 


Used in rules: 


65-68 


20. Patient order 


for ICP monitor reading is: 



ICP monitor reading less than q2h or x 12 
ICP monitor reading q2h or x 12 
ICP monitor reading qlh or x 24 
Not ordered 

Used in rules: 69-72 

21. Patient order for PAP/PA wedge reading is: 

PAP/PA wedge reading of less than q4h or x 6 

PAP/PA wedge reading q4h or x 6 

PAP/PA wedge reading q2h or x 12 

PAP/PA wedge reading qlh or x 24 



Not ordered 




Used in rules: 


73-77 


22. Patient order 


for cardiac output is: 


Cardiac output 
Cardiac output 
Cx 63 


less than TID or x 3 

less than TID Cx 33 but less than q4h 


Cardiac output 
Cardiac output 


q4h or x 6 
q2h or x 12 
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Cardiac output qlh or x 24 
Not ordered 

Used in rules: 78-83 

23. Patient order For ADL is: 

Infant/toddler care C -< 5 years] 

SBlf/minimal care Cadult or child > 5 years] 
Assisted care C> 5 years] positions self 
Complete care C> 5 years] assist with positioning 
Total care C> 5 years] position and skin care q2h 

Used in rules: 84-88 



Patient order For 
is : 


extra linen 


change i 


and 


partial 


bath 


Extra linen change 


and 


partial 


bath 


less than 2x 


per 




shiFt 

Extra linen change 


and 


partial 


bath 


2x 


per 


shiFt 


Cor 


6x 


per day] 

Extra linen change 


and 


partial 


bath 


4x 


per 


shiFt 


Cor 


12x 


per day] 

Extra linen change 


and 


partial 


bath 


8x 


per 


shiFt 


Car 


24x 



per day] 

Not ordered 

Used in rules: 88-93 

25. Patient order For turning Frame is: 

Turning Frame less than q2h 
Turning Frame q2h or x 12 
Turning Frame qlh or x 24 
Not ordered 

UsBd in rules: 94-37 

26. PatiBnt order For peds rBcreation/observation is: 

Peds recreation/observation - 0-12 yrs Cexc NBN] 

Not ordered 

Used in rules: 98, 99 

27. Patient order For tube Feedings is: 

Tube Feedings continuous — less than 1 bag per 24 hours 
Tube Feedings continuous — 1 bag per 24 hours 
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Tube feedings continuous — B bag per B4 hours 
Tube feedings continuous — 3 bag per B4 hours 
Tube feedings continuous — 4 bag per B4 hours 
Tube feedings continuous — G bag per B4 hours 
Tube feedings continuous — IB bag per B4 hours 
Tube feedings continuous — B4 bag per B4 hours 
Tube feedings CbolusD less than q4h or x 6 

Tube feedings CbolusD q4h or x G 

Tube feedings CbolusD qBh or x IB 

Tube feedings CbolusD qlh or x B4 

Not ordered 

Used in rules: 100-11B 
BB. Patient order for spoon feeding is: 



Adult meals > 5 Cspoon feed x 3D 
Child meals ■< 5 years Cspoon feed x 3D 
Not ordered 

Used in rules: 113-115 



B3. Patient order for infant/neonate bottled feeding is: 

Infant/neonate bottle x 1 feeding 
Infant/neonate bottle q4h or x G 
Infant/neonate bottle qBh or x IB 
Not ordered 

Used in rules: 116-119 

30. Patient order for IU insertion is: 

IU insertion 
Not ordered 



Used in rules: 1B0, 1B1 

31. Patient order for NG insertion is: 

NG insertion 
Not ordered 



Used in rules: IBB, 1B3 

32 . Patient order for foley insertion / straight catheter- 
ization is: 



Foley insertion 

Straight catheterization of less than 4 
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Straight catheterization of 4 or more 
Not ordered 



Used in rules: 124-127 

33. Patient order for EKG strip is: 

EKG rhythm strip 
Not ordered 

Used in rules: 12B, 129 

34. Patient order for surgical prep is: 

Surgical prep 
Not ordered 

Used in rules: 130, 131 

35. Patient order For enemas is: 

Enemas 
Not ordered 

Used in rules: 132, 133 

36. Patient order for ace iurap/elastic stockings is 
Ace wrap 

Elastic stockings 
Not ordered 

Used in rules: 134-136 



37. Patient order For dressings change is: 

Simple dressing change less than x 2 or BID 
Simple dressing change x 2 or BID 
Simple dressing change x 3 or TID 
Simple dressing change x 4 or QID 
Simple dressing change x 6 or q4h 
Simple dressing change x 12 or q2h 
Simple dressing change x 24 or qlh 
Complex dressing change x 1 or QD 

Complex dressing change x 2 or BID 

Complex dressing change x 3 or TID 

Complex dressing change x 4 or QID 

Complex dressing change x 6 or q4h 

Complex dressing change x 12 or q2h 
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Complex dressing change x B4 or qlh 
Not ordered 

Used in rules: 137-151 

38. Patient order for tube care Cexcluding trachl is 

Tube care less than x 2 or BID 

Tube care x 2 or BID 

Tube care x 3 or TID 

Tube care x 4 or QID 

Tube care x 5 or q4h 

Tube care x 12 or q2h 

Tube care x 24 or qlh 

Not ordered 

Used in rules: 152-159 



39. Patient order for Foley care is: 

Foley care less than x 2 or BID 

Foley care x 2 or BID 

Foley care x 3 or TID 

Foley care x 4 or QID 

Foley care x 6 or q4h 

Foley care x 12 or q2h 

Foley care x 24 or qlh 

Not ordered 



Used in rules: 150-157 

40. Patient order For S & S is: 

9 & A x 1 or QD 
S & fi x 2 or BID 
S S fi x 3 or TID 
S & A x 4 or QID 
S & A x 6 or q4h 
S & A x 12 or q2h 
5 & A x 24 or qlh 
Not ordered 

Used in rules: 168-175 

41. Patient order For SpGr is: 

5pGr x 1 or QD 
SpGr x 2 or BID 
SpGr x 3 or TID 
SpGr x 4 or QID 
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SpGr x 6 or q4h 
SpGr x 12 or q2h 
SpGr x 24 or qlh 
Not ordered 

Used in rules: 176-183 

42. Patient order for Guiac is: 

Guiac stools x 1 or QD 
Guiac stools x 2 or BID 
Guiac stools x 3 or TID 
Guiac stools x 4 or QID 
Guiac stools x 6 or q4h 
Guiac stools x 12 or q2h 
Guiac stools x 24 or qlh 
Not ordered 

Used in rules: 184-191 

43. Patient order for spin HCT is: 

Spin HCT x 1 or QD 
Spin HCT x 2 or BID 
Spin HCT x 3 or TID 
Spin HCT x 4 or QID 
Spin HCT x 6 or q4h 
Spin HCT x 12 or q2h 
Spin HCT x 24 or qlh 
Not ordered 

Used in rules: 192-199 

44. Patient order far lab studies is: 

Lab studies less than x 6 
Lab studies x 6 or q4h 
Lab studies x 12 or qBh 
Lab studies x 24 or qlh 
Not ordered 

Used in rules: 200-204 

45. Patient order for ABG stick is: 

ABG sticks, less than 3 

ABG sticks, at least 3 but less than 6 

ABG sticks x 6 

ABG sticks x 12 
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ABG sticks x £4 
Not ordered 

Used in rules: E05-E10 

46. Patient order for blood cultures is: 

Blood cultures less than x 3 

Blood cultures at least x 3 but less than x 6 
Blood cultures x 6 
Blood cultures x 1£ 

Blood cultures x £4 
Not ordered 

Used in rules: £11-£16 

47. Patient order For medications is: 

Medications less than qBh Cexcluding IUD 
Medications q3h - qBh Cexcluding IUD - up to IE trips 
Medications q£h or more Cexcluding IUD - > 1£ trips 
Not ordered 

Used in rules: E17-EE0 

4B . Patient order For irrigations is: 

Irrigation x 4 CQIDD or less 
Irrigation x 6 or q4h 
Irrigation x 1£ or q£h 
Irrigation x £4 or qlh 
Not ordered 

Used in rules: ££l-££5 

49. Patient order For instillations is: 

Instillations x 4 CQIDD or less 
Instillations x B or q4h 
Instillations x 1£ or q£h 
Instillations x £4 or qlh 
Nat ordered 

Used in rules: ££6-£30 

50. Patient order For restraints is: 

£-point 

4-point 
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Posey 

Not ordered 

Used in rules: 231-234 

51 . Patient order of assist ta chair / stretcher is: 

Assist to chair and return less than x 3 or TID 

Assist to stretcher and return less than x 3 or TID 

Assist to stretcher at least x 3 but less than x B 

Assist to stretcher x 6 or q4h 

Assist to stretcher x 12 or q2h 

Assist to stretcher x 24 or qlh 

Assist to chair at least x 3 but less than x B 

Assist to chair x B or q4h 

Assist to chair x 12 or q2h 

Assist to chair x 24 or qlh 

Ambulate with assistance x 1 

Ambulate with assistance x 2 

Ambulate with assistance x 3 

Ambulate with assistance x 4 

Ambulate with assistance x B 

Ambulate with assistance x 12 

Ambulate with assistance x 24 

Not ordered 

Used in rules: 23B-252 

52. Patient order for infant circumcision care is: 
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Infant circumcision care 
Not ordered 

Used in rules: 253, 254 

. Patient order for phototherapy is: 

Phototherapy 
Not ordered 

Used in rules: 255, 25B 

. Patient order far isolation is: 

Isolation [change gown and gloves < x 8] 
Isolation [change gown and gloves x 8 or morel 
Not ordered 

Used in rules: 257-259 
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55. Patient order for accompany patient off ward is: 

Accompany patient off ward far less than 15 min 

Accompany patient off ward for 15 to 30 min 

Accompany patient off ward for greater than 30 min 

Not ordered 



Used in rules: S60-E63 



55. Patient order for other activities is: 



Other activities requiring 
Other activities requiring 
Other activities requiring 
Special procedures > lhr < 
staff attendance! 

Not ordered 



less than 15 minutes 
15 to 30 minutes 
30 min to 1 hr 
E hr Crequiring continuous 



Used in rules: E64-E68 



57. Patient order for chest tube insertion is: 



Chest tube insertion 
Not ordered 

Used in rules: £69, E70 

58. Patient order for lumbar puncture is: 

Lumbar puncture 
Not ordered 

Used in rules: E71, E7S 

59. Patient order for thoracentesis is: 

Thoracentesis 
Not ordered 

Used in rules: £73, E74 

60. Patient order for paracentesis is: 

Paracentesis 
Not ordered 

Used in rules: E75, E76 
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61 . Patient order for range of motion is: 

Range of motion exercises less than x 3 or TID 

Range of motion exercises at least x 3 but less than x 6 

Range of motion exercises x 6 or q4h 

Range of motion exercises x IE or qEh 

Range of motion exercises x E4 or qlh 

Not ordered 

Used in rules: E77-EBE 

6E . Patient order to transfer in-house or neu admission is: 

Transfer in-house Cassess and orient! 

New admission Cassess and orient! 

Not ordered 

Used in rules: EB3-EB5 

63. Patient order for OE therapy or oxyhood is: 

Oxygen therapy 

Oxyhood 

Not ordered 

Used in rules: EB6-SBB 

64. Patient order for incentive spirometer is: 

Incentive spirometer less than q4h 
Incentive spirometer q4h 
Incentive spirometer qEh 
Incentive spirometer qlh 
Not ordered 

Used in rules: SB9-S93 

65. Patient order for C&DB is: 

C & DB less than q4h 
C & DB q4h 
C & DB qEh 
C & DB qlh 
Not ordered 

Used in rules: S94-E98 

66. Patient order for IPPB or maximist is: 

IPPB or maximist less than BID or x E 
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IPPB or maximist BIO or x 2 
IPPB or maximist TID or x 3 
IPPB or maximist qBh, x 4 or QID 
IPPB or maximist q4h, x B 
IPPB or maximist q2h, x 12 
IPPB or maximist qlh, x 24 
Not ordered 

Used in rules: 299-306 

67. Patient order for croup tent or mist tent is: 

Croup tent 
Hist tent 
Not ordered 

Used in rules: 307-309 

68 . Patient order for chest pulmonary therapy is: 

Chest pulmonary therapy less than BID or x 2 

Chest pulmonary therapy BID or x 2 

Chest pulmonary therapy TID or x 3 

Chest pulmonary therapy QID or x 4 

Chest pulmonary therapy q4h or x 6 

Chest pulmonary therapy q2h or x 12 

Chest pulmonary therapy qlh or x 24 

Not ordered 

Used in rules-. 310-317 

69. Patient order For suctioning is: 

Suctioning less than q4h or x 6 
Suctioning q4h or x 6 

Suctioning q2h or x 12 

Suctioning qlh or x 24 

Not ordered 

Used in rules: 318-322 

70. Patient order for trach care is: 

Trach care < x 3 or less than TID 

Trach care at least TID Cx 31 hut less than q4h Cx 6D 

Trach care x 6 or q4h 

Trach care x 12 or q2h 

Trach care x 24 or qlh 

Not ordered 

Used in rules: 323-328 
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71. Patient order for ventilator is: 



Uentilator 
Not ordered 

Used in rules: 329, 330 

72. Patient order for hanging IU bottles is: 

KUO Cchange bottlB BID or less! 

Simple Cchange bottle TID or QIDD 

Complex Cchange bottle q4h or more, two or more sites, 
or multilumen tube! 

Not ordered 

Used in rules: 331-334 

73. Patient order for heparin lock or Broviac catheter is 

Heparin lock 
Broviac catheter 
Not ordered 

Used in rules: 335-337 

74. Patient order for IU medication is: 

IU medication of less than qBh or x 3 
IU medication qBh or x 3 
IU medication q6h or x 4 
IU medication q4h or x 6 
IU medication q2h or x 12 
IU medication qlh or x 24 
Not ordered 

Used for rules: 338-344 

75. Patient order for blood products is: 

Blood products x 1 unit 
Blood products x 2 unit 
Blood products x 3 unit 
Blood products x 4 unit 
Blood products x 6 unit 
Blood products x 12 unit 
Blood products x 24 unit 
Not ordered 

Used in rules: 345-352 
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76. Patient order far group teaching is: 

Group teaching 
Not ordered 

Used in rules: 353, 354 

77. Patient order Far preoperative teaching is: 

Preoperative teaching 
Not ordered 

Used in rules: 355, 356 

7B . Patient order For structured teaching is: 

Structured teaching Ci.e. diabetic, cardiac, colostomy 
care, post partum First 24 hr, newborn care, 
discharge! 

Not ordered 

Used in rules: 357, 358 

79. Patient order For emotional support is: 

Patient/Family support Ci.e. anxiety, denial, lonlinessl 
Not ordered 

Used in rules: 359, 360 

80. Patient order Far modiFication oF liFestyle is: 

Emotional support For modiFication aF liFestyle Ci.e. 

new prathesis, body image, behavior modiFication] 

Not ordered 

Used in rules': 361, 362 

81. Patient order For sensory deprivation is: 

Emotional support For sensory deprivation Ci.e. 

retarded, blind, deaF, language barrier, bilateral 
eye patches, conFused, combative, etc.] 

Not ordered 

Used in rules: 363, 364 
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82. Patient order for cardiac monitor is: 

Cardiac monitor 
Not ordered 

Used in rules: 365, 366 

83. Patient order for apnea monitor is: 

Apnea monitor 
Not ordered 

Used in rules: 367, 368 

84. Patient order For temp monitor is: 

Temp monitor 
Not ordered 

Used in rules: 369, 370 

85. Patient order for pressure monitor is: 

Pressure monitor 
Not ordered 

Used in rules: 371, 372 

86. Patient category is: 

I Self Care/Minimal Care 

I I noderate Care 

III Acute Care Cl staff to 3 patients! 

IU Intensive Care Cl staff to 2 patients! 
U Continuous Care Cl staff to 1 patient! 
UI Critical Care Cl staff to 1 patient! 

Used in rules: 377-382 
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RULES 



Rule Number: 1 

IF: Uital signs order is: QID or less 

THEN: CptpointD is given the value [ptpomt] + 1 

Rule Number: 2 

IF: Uital signs order is: q4h or x 6 

THEN: CptpointD is given the value CptpointD + 2 



Rule Number: 3 

IF: Uital signs order is: q2h or x 12 

THEN: CptpointD is given the value CptpointD + 4 



Rule Number: 4 

IF: Uital signs order is: qlh or x 24 

THEN: CptpointD is given the value CptpointD + 8 



Rule Number: S 

IF: Uital signs order is: Not ordered 

THEN: CptpointD is given the value: no points awarded 

Rule Number: 6 

IF: Rectal or axillary temp order is: Rectal temps 
less than QID 

THEN: CptpointD is given the value: no points awarded 



Rule Number: 7 

IF: Rectal ar axillary temp order is: Axillary temps 
less than QID 

THEN: CptpointD is given the value: no points awarded 
Rule Number: 8 

IF: Rectal or axillary temp order is: Rectal temps 
QID or more 

THEN: CptpointD is given the value CptpointD + 2 
Rule Number: 8 

IF: Rectal or axillary temp order is: Axillary temps 
QID or more 

THEN: CptpointD is given the value CptpointD + 2 



Rule Number: 10 

IF: Rectal or axillary temp order is: Not ordered 
THEN: CptpointD is given the value: no points awarded 
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Rule Number: 11 

IF: Patient order for apical pulse is: Apical pulse less 
than QID 

THEN: CptpointD is given the value: no points awarded 



Rule Number: IE 

IF: Patient order for apical pulse is: Apical pulse QID 
or more 

THEN: Cptpointl is given the value CptpointD + S 

Rule Number: 13 

IF: Patient order For apical pulse is: Not ordered 
THEN: CptpointD is given the value: no points awarded 



Rule Number: 14 

IF: Patient order For Femoral pulse is: Femoral pulses 
less than q4h 

THEN: Cptpointl is given the value: no points awarded 
Rule Number: 15 

IF: Patient order For Femoral pulse is: Femoral pulses 
q4h or more 

THEN: CptpointD is given the value CptpointD + E 
Rule Number: IB 

IF: Patient order For Femoral pulse is: Not ordered 
THEN: Cptpointl is given the value: no points awarded 

Rule Number: 17 

IF: Patient order For pedal pulses is: Pedal pulses less 
than q4h 

THEN: CptpointD is given the value: no points awarded 
Rule Number: 18 

IF: Patient order For pedal pulses is: Pedal pulses q4h 
or more 

THEN: CptpointD is given the value CptpomtD + E 
Rule Number: 19 

IF: Patient order For pedal pulses is: Not ordered 
THEN: CptpointD is given the value: no points awarded 

Rule Number: SO 

IF: Patient order For FHT is: FHT less than q4h 
THEN: Cptpointl is given the value: no points awarded 

Rule Number: El 

IF: Patient order For FHT is: FHT q4h or more 
THEN: CptpointD is given the value CptpointD + E 
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Rule Number: 22 

IF: Patient order for FHT is: Not ordered 

THEN: CptpointD is given the value: no paints awarded 

Rule Number: 23 

IF: Patient order for tilt test is: Tilt test less 
than q4h 

THEN: CptpointD is given the value: no paints awarded 
Rule Number: 24 

IF: Patient order for tilt test is: Tilt test q4h 
or more 

THEN: CptpointD is given the value CptpointD + 2 
Rule Number: 25 

IF: Patient order far tilt test is: Not ordered 
THEN: CptpointD is given the value: no points awarded 

Rule Number: 26 

IF: Patient order for post-ap/post-partum/past-newborn 
vital signs is: Past-op 

THEN: CptpointD is given the value CptpointD + 6 
Rule Number: 27 

IF: Patient order for post-ap/post-partum/post-newbarn 
vital signs is: Past-partum 
THEN: CptpointD is given the value CptpointD + 6 

Rule Number: 20 

IF: Patient order far post-op/post-partum/post-newbarn 
vital signs is: Past-newborn 
THEN: CptpointD is given the value CptpointD + 6 

Rule Number: 20 

IF: Patient order for post-op/past-partum/post-newborn 
vital signs is: Not ordered 
THEN: CptpointD is given the value: no points awarded 

Rule Number: 30 

IF: Patient order far intake & output is: Intake & 

output less than q8h or x 3 
THEN: CptpointD is given the value: no points awarded 

Rule Number: 31 

IF: Patient order far intake & output is: Intake & 

output at least q8h Cx 3D, but less than q4h Cx 6D 
THEN: CptpointD is given the value CptpaintD + 2 
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Rule Number: 32 

IF: Patient order For intake 8 output is: Intake 8 

output q4h or x 6 

THEN: CptpointD is given the value CptpointD + 4 
Rule Number: 33 

IF: Patient order for intake 8 output is: Intake 8 

output q2h or x 12 

THEN: CptpointD is given the value CptpointD + 8 
Rule Number: 34 

IF: Patient order for intake 8 output is: Intake 8 

output qlh or x 24 

THEN: CptpointD is given the value CptpointD + 16 
Rule Number: 35 

IF: Patient order for intake 8 output is: Not ordered 

THEN: CptpointD is given the value: no points awarded 



Rule Number: 36 

IF: Patient order for circulation checks is: Circulation 
checks less than q2h or x 12 
THEN: CptpointD is given the value: no points awarded 



Rule Number: 37 

IF: Patient order for circulation checks is: Circulation 
checks q2h or x 12 

THEN: CptpointD is given the value CptpointD + 2 



Rule Number: 38 

IF: Patient order for circulation checks is: Circulation 
checks qlh or x 24 

THEN: CptpointD is given the value CptpointD + 4 



Rule Number: 38 

IF: Patient order for circulation checks is: Not ordered 
THEN: CptpointD is given the value: no points awarded 



Rule Number: 40 

IF: Patient order for neuro checks is: Neuro checks less 
than q4h or x 6 

THEN: CptpointD is given the value: no points awarded 
Rule Number: 41 

IF: Patient order for neuro checks is: Neuro checks 
q4h or x 6 

THEN: CptpointD is given the value CptpointD + 3 
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is: Neuro checks 



Rule Number: 42 

IF: Patient order for neuro checks 
qEh or x 12 

THEN: CptpointD is given the value CptpointD + 6 
Rule Number: 43 

IF: Patient order for neuro checks is: Neuro checks 
qlh or x 24 

THEN: CptpointD is given the value CptpointD + 12 
Rule Number: 44 

IF: Patient order far neuro checks is: Not ordered 

THEN: CptpointD is given the value: no points awarded 

Rule Number: 45 

IF: Patient order for CUP manual readings is: CUP manual 
readings less than q2h or x 12 

THEN: CptpointD is given the value: no points awarded 

Rule Number: 46 

IF: Patient order for CUP manual readings is: CUP manual 
readings q2h or x 12 

THEN: CptpointD is given the value CptpointD + 2 
Rule Number: 47 

IF: Patient order for CUP manual readings is: CUP manual 
readings qlh or x 24 

THEN: CptpointD is given the value CptpointD + 4 
Rule Number: 48 

IF: Patient order for CUP manual readings is: Not 
ordered 

THEN: CptpointD is given the value: no points awarded 
Rule Number: 48 

IF: Patient order for ICP manual readings is: ICP manual 

readings less than q2h or x 12 

THEN: CptpointD is given the value: no points awarded 

Rule Number: 50 

IF: Patient order for ICP manual readings is: ICP manual 

readings q2h or x 12 

THEN: CptpointD is given the value CptpointD + 2 
Rule Number: 51 

IF: Patient order far ICP manual readings is: ICP manual 

readings qlh or x 24 

THEN: CptpointD is given the value CptpointD + 4 
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Rule Number: 52 

IF: Patient order for ICP manual readings is: Not 
ordered 

THEN: Cptpoint] is given the value: no points awarded 
Rule Number: S3 

IF: Patient order for fundus checks is: Fundus checks 
less than q2h or x 12 

THEN: CptpointD is given the value: no points awarded 



Rule Number: 54 

IF: Patient order for fundus checks is: Fundus checks 
q2h or x 12 

THEN: Cptpoint] is given the value Cptpoint] + 2 

Rule Number: 55 

IF: Patient order for fundus checks is: Fundus checks 
qlh or x 24 

THEN: Cptpoint] is given the value Cptpoint] + 4 



Rule Number: 56 

IF: Patient order for fundus checks is: Not ordered 
THEN: Cptpoint] is given the value: no paints awarded 



Rule Number: 57 

IF: Patient order for transcutaneous monitor is: 
transcutaneous monitor 

THEN: Cptpoint] is given the value Cptpoint] + 6 



Rule Number: 58 

IF: Patient order for transcutaneous monitor is: Not 



ordered 

THEN: Cptpoint] is given 

Rule Number: 59 

IF: Patient order for an 
THEN: Cptpoint] is given 

Rule Number: 60 

IF: Patient order for an 
THEN: Cptpoint] is given 

Rule Number: 61 

IF: Patient order for an 
monitor set-up 
THEN: Cptpoint] is given 



the value: no points awarded 

8-line set-up is: A-line set-up 
the value Cptpoint] + 4 

A-line set-up is: Not ordered 
the value: no paints awarded 

ICP monitor set-up is: ICP 

the value Cptpoint] + 4 
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Rule Number: 68 

IF: Patient order for an ICP monitor set-up is: Not 
ordered 

THEN: CptpointD is given the value: no points awarded 



Rule Number: 63 

IF: Patient order For Swan Ganz set-up is: Swan Ganz 
set-up 

THEN: CptpointD is given the value CptpointD + 4 



Rule Number: 64 

IF: Patient order for Swan Ganz set-up is: Not ordered 
THEN: CptpointD is given the value: no points awarded 

Rule Number: 65 

IF: Patient order for A-line reading is: A-line reading 
less than q8h or x IS 

THEN: CptpointD is given the value: no points awarded 



Rule Number: 66 

IF: Patient order for A-line reading is: A-line reading 
qEh or x 18 

THEN: CptpointD is given the value CptpointD + 8 



Rule Number: 67 

IF: Patient order For A-line reading is: A-line reading 
qlh or x 84 

THEN: CptpointD is given the value CptpointD + 4 
Rule Number: 60 

IF: Patient order For A-line reading is: Not ordered 
THEN: CptpointD is given the value: no points awarded 



Rule Number: 69 

IF: Patient order For ICP monitor reading is: ICP 

monitor reading less than q8h or x 18 
THEN: CptpointD is given the value: no points awarded 

Rule Number: 70 

IF: Patient order For ICP monitor reading is: ICP 

monitor reading q8h or x 18 
THEN: CptpointD is given the value CptpointD + 8 

Rule Number: 71 

IF: Patient order For ICP monitor reading is: ICP 

monitor reading qlh or x 84 
THEN: CptpointD is given the value CptpointD + 4 
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Rule Number: 72 

IF: Patient order For ICP monitor reading is: Nat 
ordered 

THEN: CptpointD is given the value: no points awarded 

Rule Number: 73 

IF: Patient order For PAP/PA wedge reading is: PAP/PA 
wedge reading oF less than q4h or x 6 

THEN: CptpointD is given the value: no points awarded 

Rule Number: 74 

IF: Patient order For PAP/PA wedge reading is: PAP/PA 
wedge reading oF q4h or x 6 

THEN: CptpointD is given the value CptpointD + 2 

Rule Number: 75 

IF: Patient order For PAP/PA wedge reading is: PAP/PA 
wedge reading oF q2h or x 12 

THEN: CptpointD is given the value CptpointD + 4 

Rule Number: 76 

IF: Patient order For PAP/PA wedge reading is: PAP/PA 
wedge reading oF qlh or x 24 

THEN: CptpointD is given the value CptpointD + 8 

Rule Number: 77 

IF: Patient order For PAP/PA wedge reading is: Not 
ordered 

THEN: CptpointD is given the value: no points awarded 

Rule Number: 70 

IF: Patient order For cardiac output is: Cardiac output 
less than TID or x 3 

THEN: CptpointD is given the value: no points awarded 

Rule Number: 79 

IF: Patient order For cardiac output is: Cardiac output 
at least TID Cx 3D but less than q4h Cx 61 

THEN: CptpointD is given the value CptpointD + 2 

Rule Number: 80 

IF: Patient order For cardiac output is: Cardiac output 
q4h or x 6 

THEN: CptpointD is given the value CptpointD + 4 

Rule Number: 81 

IF: Patient order For cardiac output is: Cardiac output 
q2h or x 12 

THEN: CptpointD is given the value CptpointD + 8 
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Rule Number: 82 

IF: Patient order for cardiac output is: Cardiac output 
qlh or x 24 

THEN: Cptpoint] is given the value Cptpoint! + 16 
Rule Number: 83 

IF: Patient order For cardiac output is: Not ordered 

THEN: Cptpoint! is given the value: no points awarded 

Rule Number: 84 

IF: Patient order For ADL is: InFant/toddler care 

C”< 5 years! 

THEN: Cptpoint! is given the value Cptpoint! + 6 
Rule Number: 85 

IF: Patient order For ADL is: SelF/minimal care Cadult 
or child > 5 years! 

THEN: Cptpoint] is given the value Cptpoint! + 2 
Rule Number: 86 

IF: Patient order For ADL is: Assisted care C> 5 years! 
positions selF 

THEN: Cptpoint] is given the value Cptpoint! + 6 
Rule Number: 87 

IF: Patient order For ADL is: Complete care C> 5 years! 
assists with positioning 

THEN: Cptpoint] is given the value Cptpoint! + 14 
Rule Number: 88 

IF: Patient order For ADL is: Total care C> 5 years! 
position and skin care q2h 

THEN: Cptpoint] is given the value Cptpoint! + 32 



Rule Number: 83 

IF: Patient order For extra linen change and partial 

bath is: Extra linen and partial bath less than 2x 
per shiFt 

THEN: Cptpoint] is given the value: no points awarded 



Rule Number: 30 

IF: Patient order For extra linen change and partial 
bath is: Extra linen and partial bath 2x per shiFt 
THEN: Cptpoint] is given the value Cptpoint! + 4 



Rule Number: 31 

IF: Patient order For extra linen change and partial 

bath is: Extra linen and partial bath 4x per shiFt 
THEN: Cptpoint] is given the value Cptpoint! + 8 
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Rule Number: 92 

IF: Patient order for extra linen change and partial 
bath is: Extra linen and partial bath 8x per shift 

THEN: Cptpoint! is given the value Cptpoint! + 16 

Rule Number: 93 

IF: Patient order for extra linen change and partial 
bath is: Not ordered 

THEN: Cptpoint! is given the value: no points awarded 
Rule Number: 94 

IF: Patient order for turning frame is: Turning frame 
less than q2h 

THEN: Cptpoint! is given the value: no points awarded 

Rule Number: 95 

IF: Patient order for turning frame is: Turning frame 
q2h or x 12 

THEN: Cptpointl is given the value Cptpoint! + 14 
Rule Number: 96 

IF: Patient order for turning frame is: Turning framB 
qlh or x 24 

THEN: Cptpoint! is given the value Cptpoint! + 28 
Rule Number: 97 

IF: Patient order for turning frame is: Not ordered 

THEN: Cptpoint! is given the value: no points awarded 

Rule Number: 98 

IF: Patient order for peds recreation/observation is: 
Peds recreation/observation - 0-12 yrs Cexc NBN! 

THEN: Cptpoint! is given the value Cptpoint! + 8 

Rule Number: 99 

IF: Patient order for peds recreation/observation is: 
Not ordered 

THEN: Cptpoint! is given the value: no points awarded 
Rule Number: 100 

IF: Patient order for tube Feedings is: Tube feedings 
continuous — less than 1 bag per 24 hours 

THEN: Cptpoint! is given the value: no points awarded 

Rule Number: 101 

IF: Patient order for tube feedings is: Tube feedings 
continuous — 1 bag per 24 hours 

THEN: Cptpoint! is given the value Cptpoint! + 2 
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Rule Number: 102 

IF: Patient order For tube feedings is: Tube feedings 
continuous — 2 bag per 24 hours 
THEN: CptpointD is given the value CptpointD + 4 

Rule Number: 103 

IF: Patient order for tube feedings is: Tube feedings 
continuous — 3 bag per 24 hours 
THEN: CptpointD is given the value CptpointD + E 

Rule Number: 104 

IF: Patient order for tube feedings is: Tube feedings 
continuous — 4 bag per 24 hours 
THEN: CptpaintD is given the value CptpointD + B 

Rule Number: 105 

IF: Patient order for tube Feedings is: Tube feedings 
continuous — E bag per 24 hours 
THEN: CptpointD is given the value CptpaintD + 12 

Rule Number: 10E 

IF: Patient order for tube feedings is: Tube feedings 
continuous — 12 bag per 24 hours 
THEN: CptpointD is given the value CptpaintD + 24 

Rule Number: 107 

IF: Patient order for tube feedings is: Tube feedings 
continuous — 24 bag per 24 hours 
THEN: CptpaintD is given the value CptpointD + 4B 

Rule Number: 10B 

IF: Patient order For tube feedings is: Tube feedings 
CbolusD less than q4h or x E 
THEN: CptpaintD is given the value: no points awarded 

Rule Number: 103 

IF: Patient order for tube feedings is: Tube feedings 
CbolusD q4h or x B 

THEN: CptpointD is given the value CptpointD + 5 

Rule Number: 110 

IF: Patient order for tube feedings is: Tube feedings 
CbolusD q2h or x 12 

THEN: CptpaintD is given the value CptpointD + 10 

Rule Number: 111 

IF: Patient order for tube feedings is: Tube feedings 
CbolusD qlh or x 24 

THEN: CptpaintD is given the value CptpointD + 20 
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Rule Number: 112 

IF: Patient order for tube feedings is: Not ordered 
THEN: CptpointD is given the valuB: no points awarded 

Rule Number: 113 

IF: Patient order for spoon feedings is: Adult meals 
> 5 years Cspoon fBed x 3D 
THEN: CptpointD is given the value CptpointD + 6 

Rule Number: 114 

IF: Patient order for spoon feedings is: Child meals 
-< 5 years Cspoon feed x 3D 
THEN: CptpointD is given the value CptpointD + 10 

Rule Number: 115 

IF: Patient order for spoon feedings is: Not ordered 
THEN: CptpointD is given the value: no points awarded 

Rule Number: 116 

IF: Patient order for infant/neonate bottle feeding is 
Infant/neonate bottle x 1 feeding 
THEN: CptpointD is given the value CptpointD + 2 

Rule Number: 117 

IF: Patient order for infant/neonate bottle feeding is 
Infant/neonate bottle q4h or x 6 
THEN: CptpointD is given the value CptpointD + 12 

Rule Number: 118 

IF: Patient order for infant/neonate bottlB feeding is 
Infant/neonate bottle q2h or x 12 
THEN: CptpointD is given the value CptpointD + 24 



Rule Number: 119 

IF: Patient order for infant/neonate bottle feeding is 



Not ordered 

THEN: CptpointD is given 

Rule Number: 120 

IF: Patient order for 10 
THEN: CptpointD is given 

Rule Number: 121 

IF: Patient order for 10 
THEN: CptpointD is given 

Rule Number: 122 

IF: Patient order for NG 
THEN: CptpointD is given 



thB value: no points awarded 



insertion is: 10 insertion 

the value CptpointD + 2 

insertion is: Not ordered 
the value: no paints awarded 

insertion is: NG insertion 
the value CptpointD + 2 
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Rule Number: 123 

IF: Patient order for NG insertion is: Not ordered 
THEN: Cptpointl is given the value: no points awarded 

Rule Number: 124 

IF: Patient order for foley insertion/straight 
catheterization is: Foley insertion 
THEN: Cptpointl is given the value CptpointD + 2 

Rule Number: 125 

IF: Patient order far foley insertion/straight 

catheterization is: straight catheterizat of less 
than 3 

THEN: CptpointD is given the value: no points awarded 
Rule Number: 12G 

IF: Patient order for foley insertion/straight 

catheterization is: straight catheterizat of 4 or 
more 

THEN: CptpointT is given the value CptpointD + 4 
Rule Number: 127 

IF: Patient order for foley insertion/straight 
catheterization is: Not ordered 
THEN: Cptpointl is given the value: no points awarded 

Rule Number: 128 

IF: Patient order for EKG rhythm strip is: EKG rhythm 
strip 

THEN: CptpointD is given the value CptpointD + 2 
Rule Number: 129 

IF: Patient order far EKG rhythm strip is: Not ordered 
THEN: CptpointD is given the value: no points awarded 

Rule Number: 130 

IF: Patient order for surgical prep is: Surgical prep 
THEN: CptpointD is given the value CptpointD + 2 

Rule Number: 131 

IF: Patient order for surgical prep is: Not ordered 
THEN: Cptpointl is given the value: no points awarded 

Rule Number: 132 

IF: Patient order for enemas is: Enemas 

THEN: CptpointD is given the value CptpointD + 2 

Rule Number: 133 

IF: Patient order for enemas is: Not ordered 

THEN: CptpointD is given the value: no points awarded 
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Rule Number: 134 

IF: Patient order far ace wrap/elastic stockings is: Ace 
wrap 

THEN: Cptpointl is given the value Cptpointl + S 

Rule Number: 135 

IF: Patient order far ace wrap/elastic stackings is: 
Elastic stockings 

THEN: Cptpoint] is given the value Cptpointl + 2 

Rule Number: 136 

IF: Patient order for ace wrap/elastic stockings is: Not 
ordered 

THEN: CptpointJ is given the value: no points awarded 

Rule Number: 137 

IF: Patient order for dressing change is: Simple 
dressing change less than x 2 or BID 
THEN: CptpointD is given the value: no points awarded 

Rule Number: 138 

IF: Patient order for dressing change is: Simple 
dressing change x 2 or BID 
THEN: Cptpointl is given the value CptpointD + 2 

Rule Number: 139 

IF: Patient order for dressing change is: Simple 
dressing change x 3 or TID 
THEN: CptpaintJ is given the value Cptpoint] + 3 

Rule Number: 140 

IF: Patient order for dressing change is: Simple 
dressing change x 4 or QID 
THEN: Cptpaintl is given the value CptpointJ + 4 

Rule Number: 141 

IF: Patient order for dressing change is: Simple 
dressing change x 6 or q4h 
THEN: Cptpointl is given the value Cptpointl + 6 

Rule Number: 142 

IF: Patient order for dressing change is: Simple 
dressing change x 12 or q2h 
THEN: Cptpointl is given the value CptpointJ + 12 

Rule Number: 143 

IF: Patient order for dressing change is: Simple 
dressing change x 24 or qlh 
THEN: Cptpointl is given the value Cptpoint] + 24 
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Rule Number: 144 

IF: Patient order for dressing change is: Complex 
dressing change x 1 

THEN: CptpaintD is given the value Cptpointl + 4 

Rule Number: 145 

IF: Patient order for dressing change is: Complex 
dressing change x 2 or qlBh 
THEN: Cptpointl is given the value CptpointD + 8 

Rule Number: 146 

IF: Patient order for dressing change is: Complex 
dressing change x 3 or TID 
THEN: CptpointD is given the value CptpaintD + IB 

Rule Number: 147 

IF: Patient order for dressing change is: Complex 
dressing change x 4 or QID 
THEN: Cptpointl is given the value Cptpointl + 16 

Rule Number: 148 

IF: Patient order for dressing change is: Complex 
dressing change x 6 or q4h 
THEN: CptpointD is given the value Cptpointl + B4 

Rule Number: 148 

IF: Patient order for dressing change is: Complex 
dressing change x IB or qBh 
THEN: Cptpointl is given the value Cptpointl + 48 

Rule Number: 150 

IF: Patient order for dressing change is: Complex 
dressing change x B4 or qlh 
THEN: Cptpointl is given the value CptpointD + 86 

Rule Number: 151 

IF: Patient order for dressing change is: Not ordered 
THEN: CptpointD is given the value: no points awarded 

Rule Number: 15B 

IF: Patient order for tube care Cnot trachl is: Tube 
care less than x B or BID 

THEN: CptpointD is given the value: no points awarded 

Rule Number: 153 

IF: Patient order for tube care Cnot trachl is: Tube 
care x 2 or BID 

THEN: CptpointD is given the value Cptpointl + 2 
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Rule Number: 154 

IF: Patient order Far tube care Cnot trachl is: Tube 
care x 3 or TID 

THEN: Cptpointl is given the value Cptpointl + 3 
Rule Number: 155 

IF: Patient order for tube care Cnot trachl is: Tube 
care x 4 or QID 

THEN: Cptpointl is given the value Cptpointl + 4 
Rule Number: 156 

IF: Patient order for tube care Cnot trachl is: Tube 
care x 6 or q4h 

THEN: Cptpointl is given the value Cptpointl + 6 
Rule Number: 157 

IF: Patient order For tube care Cnot trachl is: Tube 
care x 12 or q2h 

THEN: Cptpointl is given the value Cptpointl + 12 
RuIb Number: 15B 

IF: PatiBnt order For tubB care Cnot trachl is: TubB 
care x 24 or qlh 

THEN: Cptpointl is given the value Cptpointl + 24 
Rule Number: 159 

IF: Patient order For tube care Cnot trachl is: Not 
ordered 

THEN: Cptpointl is given the value: no points awarded 
Rule Number: 160 

IF: Patient order For Foley care is: Foley care less 
than x 2 or BID 

THEN: Cptpointl is given the value: no points awarded 
Rule Number: 161 

IF: Patient order For Foley care is: Foley care x 2 or 
BID 

THEN: Cptpointl is given the value Cptpointl + 2 
Rule Number: 162 

IF: Patient order For Foley care is: Foley care x 3 or 
TID 

THEN: Cptpointl is given the value Cptpointl + 3 
Rule Number: 163 

IF: Patient order Far Foley care is: Foley care x 4 or 
QID 

THEN: Cptpointl is given the value Cptpointl + 4 
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Rule Number: 164 

IF: Patient order For Foley care is: Foley care x 6 or 
q4h 

THEN: Cptpoint] is given the value Cptpoint] + 6 
Rule Number: 165 

IF: Patient order for Foley care is: Foley care x 12 or 
q2h 

THEN: Cptpoint] is given the value Cptpoint] + 12 
Rule Number: 166 

IF: Patient order for Foley care is: Foley care x 24 or 
qlh 

THEN: Cptpoint] is given the value Cptpoint] + 24 



Rule Number: 167 

IF: Patient order for Foley care is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 

Rule Number: 168 



IF: Patient order for S & 
THEN: Croupoint] is given 

Rule Number: 168 

IF: Patient order for S & 
THEN: Croupoint] is given 

Rule Number: 170 

IF: Patient order for S & 
THEN: Croupoint] is given 

Rule Number: 171 

IF: Patient order for S S 
THEN: Croupoint] is given 

Rule Number: 172 

IF: Patient order for S S 
THEN: Croupoint] is given 

Rule Number: 173 

IF: Patient order for S & 
THEN: Croupoint] is given 

Rule Number: 174 

IF: Patient order for S & 
THEN: Croupoint] is given 

Rule Number: 175 

IF: Patient order for S & 
THEN: Croupoint] is given 



A is: S & A x 1 or QD 
the value Croupoint] + 1 



A is: S & A x 2 or BID 
the value Croupoint] + 2 



A is: S & A x 3 or TID 
the value Croupoint] + 3 



A is: S & A x 4 or QID 
the value Croupoint] + 4 



A is: S & A x 6 or q4h 
the value Croupoint] + 6 



A is: S & A x 12 or q2h 
the value Croupoint] + 12 



A is: S & A x 24 or qlh 
the value Croupoint] + 24 



A is: Not ordered 

the value: no points awarded 
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Rule Number: 176 

IF: Patient order for Sp Gr is: Sp Gr x 1 or QD 
THEN: CroupointD is given the value CroupointD + 1 

Rule Number: 177 

IF: Patient order for Sp Gr is: Sp Gr x 2 or BID 
THEN: CroupointD is given the value CroupointD + 2 

Rule Number: 178 

IF: Patient order For Sp Gr is: Sp Gr x 3 or TID 
THEN: CroupointD is given the value CroupointD + 3 

Rule Number: 179 

IF: Patient order for Sp Gr is: Sp Gr x 4 or QID 
THEN: CroupointD is given the value CroupointD + 4 

Rule Number: 180 

IF: Patient order for Sp Gr is: Sp Gr x G or q4h 
THEN: CroupointD is given the value CroupointD + 6 

Rule Number: 181 

IF: Patient order for Sp Gr is: Sp Gr x 12 or q2h 
THEN: CroupointD is given the value CroupointD + 12 

Rule Number: 182 

IF: Patient order for Sp Gr is: Sp Gr x 24 or qlh 
THEN: CroupointD is given the value CroupointD + 24 

Rule Number: 183 

IF: Patient order for Sp Gr is: Not ordered 

THEN: CroupointD is given the value: no points awarded 

Rule Number: 184 

IF: Patient order for Guiac stools is: Guiac stools x 1 
or □□ 

THEN: CroupointD is given the value CroupointD + 1 
Rule Number: 185 

IF: Patient order for Guiac stools is: Guiac stools x 2 
or BID 

THEN: CroupointD is given the value CroupointD + 2 
Rule Number: 186 

IF: Patient order for Guiac stools is: Guiac stools x 3 
or TID 

THEN: CroupointD is given the value CroupointD + 3 
Rule Number: 187 

IF: Patient order for Guiac stools is: Guiac stools x 4 
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or QID 

THEN: Croupointl is given the value Croupointl + 4 
Rule Number: 188 

IF: Patient order For Guiac stools is: Guiac stools x 6 
or q4h 

THEN: CroupointD is given the value CroupaintD + 6 
Rule Number: 189 

IF: Patient order For Guiac stools is: Guiac stools x 12 
or q2h 

THEN: CroupointD is given the value CroupointU + 12 
Rule Number: 190 

IF: Patient order For Guiac stools is: Guiac stools x 24 
or qlh 

THEN: Croupointl is given the value Croupointl + 24 
Rule Number: 191 

IF: Patient order For Guiac stools is: Not ordered 
THEN: CroupointJ is given the value: no points awarded 

Rule Number: 192 

IF: Patient order For spin HCT is: Spin HCT x 1 or QD 
THEN: Croupointl is given the value Croupoint] + 1 

Rule Number: 193 

IF: Patient order For spin HCT is: Spin HCT x 2 or BID 
THEN: Croupointl is given the value CroupointD + 2 

Rule Number: 194 

IF: Patient order For spin HCT is: Spin HCT x 3 or TID 
THEN: Croupointl is given the value Croupointl + 3 

Rule Number: 195 

IF: Patient order For spin HCT is: Spin HCT x 4 or QID 
THEN: Croupointl is given the value Croupoint] + 4 

Rule Number: 198 

IF: Patient order For spin HCT is.- Spin HCT x 6 or q4h 
THEN: CraupointD is given the value Croupointl + 6 

Rule Number: 197 

IF: Patient order For spin HCT is: Spin HCT x 12 or q2h 
THEN: CroupointJ is given the value CroupointD + 12 

Rule Number: 198 

IF: Patient order For spin HCT is: Spin HCT x 24 or qlh 
THEN: CroupointJ is given the value CroupointJ + 24 
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Rule Number: 199 

IF: Patient order for spin HCT is: Not ordered 

THEN: Croupaint] is given the value: no points awarded 

Rule Number: 200 

IF: Patient order for lab studies is: Lab studies less 
than x 6 

THEN: Cptpointl is given the value: no points awarded 
Rule Number: 201 

IF: Patient order for lab studies is: Lab studies x 6 or 
q4h 

THEN: CptpointD is given the value Cptpaint3 + 2 
Rule Number: 202 

IF: Patient order for lab studies is: Lab studies x 12 
or q2h 

THEN: Cptpoint] is given the value CptpointD + 4 
Rule Number: 203 

IF: Patient order for lab studies is: Lab studies x 24 
or qlh 

THEN: CptpointD is given the value CptpaintD + 8 
Rule Number: 204 

IF: Patient order for lab studies is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 

Rule Number: 205 

IF: Patient order for ABG sticks is: ABG sticks, less 
than x 3 

THEN: Cptpointl is given the value: no points awarded 
Rule Number: 206 

IF: Patient order for ABG sticks is: ABG sticks, at 
least x 3, but less than x 6 
THEN: Cptpoint] is given the value Cptpoint] + 2 

Rule Number: 207 

IF: Patient order for ABG sticks is: ABG sticks x 6 
THEN: Cptpoint3 is given the value CptpointD + 4 

Rule Number: 208 

IF: Patient order for ABG sticks is: ABG sticks x 12 
THEN: CptpointD is given the value Cptpoint] + 8 

Rule Number: 209 

IF: Patient order for ABG sticks is: ABG sticks x 24 
THEN: CptpointD is given the value CptpointD + 16 
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Rule Number: 210 

IF: Patient order for ABG sticks is: Nat ordered 
THEN: CptpaintD is given the value: no points awarded 

Rule Number: 211 

IF: Patient order for blood culttures is: Blood cultures 
less than x 3 

THEN: CptpointD is given the value: no points awarded 
Rule Number: 212 

IF: Patient order for blood culttures is: Blood cultures 
at least x 3 but less than x B 
THEN: CptpointD is given the value CptpointD + 2 

Rule Number: 213 

IF: Patient order far blood culttures is: Blood cultures 
x B 

THEN: CptpaintD is given the value CptpointD -*• 4 
Rule Number: 214 

IF: Patient order far blood culttures is: Blood cultures 
x 12 

THEN: CptpointD is given the value CptpointD + B 
Rule Number: 215 

IF: Patient order for blood culttures is: Blood cultures 
x 24 

THEN: CptpointD is given the value CptpaintD + IB 
Rule Number: 21B 

IF: Patient order far blood culttures is: Not ordered 
THEN-.. CptpointD is given the value: no points awarded 

Rule Number: 217 

IF: Patient order for medications is: dedications less 
than qBh Cexclude IUD 

THEN: CptpaintD is given the value: no paints awarded 
Rule Number: 21B 

IF: Patient order far medications is: dedications q3h - 
qBh Cexclude IUD - up to 12 trips 
THEN: CptpaintD is given the value CptpointD + 2 

Rule Number: 219 

IF: Patient order for medications is: dedications qBh or 
more Cexclude IUD - > 12 trips 
THEN: CptpointD is given the value CptpointD + 4 
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Rule Number: 220 

IF: Patient order for medications is: Not ordered 
THEN: CptpointD is given the value: no points awarded 

Rule Number: 221 

IF: Patient order for irrigations is: Irrigations x 4 

CQIDD or less 

THEN: CptpointD is given the value CptpointD + 2 
Rule Number: 222 

IF: Patient order for irrigations is: Irrigations x 6 

or q4h 

THEN: CptpointD is given the value CptpointD + 3 
Rule Number: 223 

IF: Patient order for irrigations is: Irrigations x 12 

or q2h 

THEN: CptpointD is given the value CptpointD + 6 
Rule Number: 224 

IF: Patient order For irrigations is: Irrigations x 24 

or qlh 

THEN: CptpointD is given the value CptpointD + 12 
Rule Number: 225 

IF: Patient order for irrigations is: Not ordered 
THEN: CptpointD is given the value: no points awarded 

Rule Number: 226 

IF: Patient order for instillations is: Instillations 

x 4 CQIDD or less 

THEN: CptpointD is given the value CptpointD + 2 
Rule Number: 227 

IF: Patient order for instillations is: Instillations 

x 6 or q4h 

THEN: CptpointD is given the value CptpointD + 3 
Rule Number: 228 

IF: Patient order for instillations is: Instillations 

x 12 or q2h 

THEN: CptpointD is given the value CptpointD + 6 
Rule Number: 229 

IF: Patient order for instillations is: Instillations 

x 24 or qlh 

THEN: CptpointD is given the value CptpointD + 12 
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Rule Number: 230 

IF: Patient order for instillations is: Not ordered 
THEN: Cptpoint! is given the value: no points awarded 

Rule Number: 231 

IF: Patient order for restraints is: 2 point 
THEN: Cptpoint! is given the value Cp point! + 2 

Rule Number: 232 

IF: Patient order for restraints is: 4 point 
THEN: Cptpoint! is given the value Cptpoint! + 2 

Rule Number: 233 

IF: Patient order for restraints is: Posey 
THEN: Cptpoint! is given the value Cptpoint! + 2 

Rule Number: 234 

IF: Patient order for restraints is: Not ordered 
THEN: Cptpoint! is given the value: no points awarded 

Rule Number: 235 

IF: Patient order for assist to chair/stretcher is: 
Assist to chair less than x 3 
THEN: Cptpoint! is given the value: no points awarded 

Rule Number: 235 

IF: Patient order for assist to chair/stretcher is: 
Assist to stretcher less than x 3 
THEN: Cptpoint! is given the value: no points awarded 

Rule Number: 237 

IF: Patient order for assist to chair/stretcher is: 

Assist to stretcher by at least 3 but less than 6 
THEN: Cptpoint! is given the value Cptpoint! + 2 

Rule Number: 23B 

IF: Patient order for assist to chair/stretcher is: 
Assist to stretcher x 6 or q4h 
THEN: Cptpoint! is given the value Cptpoint! + 4 

Rule Number: 239 

IF: Patient order for assist to chair/stretcher is: 
Assist to stretcher x 12 or q2h 
THEN: Cptpaint! is given the value Cptpoint! + 0 

Rule Number: 240 

IF: Patient order for assist to chair/stretcher is: 
Assist to stretcher x 24 or qlh 
THEN: Cptpoint! is given the value Cptpoint! + 15 
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Rule Number: 241 

IF: Patient order for assist to chair /stretcher is 
Assist to chair at least x 3 but less than x 6 
THEN: CptpointD is given the value CptpointD + 2 

Rule Number: 242 

IF: Patient order for assist to chair/stretcher is 
Assist to chair x 6 or q4h 
THEN: CptpointD is given the value CptpointD + 4 

Rule Number: 243 

IF: Patient order for assist to chair/stretcher is 
Assist to chair x 12 or q2h 
THEN: CptpointD is given the value CptpointD + 8 



Rule Number: 244 

IF: Patient order for assist to chair/stretcher is 
Assist to chair x 24 or qlh 
THEN: CptpointD is given the value CptpointD + 16 

Rule Number: 245 

IF: Patient order for assist to chair /stretcher is 
Ambulate with assistance x 1 
THEN: CptpointD is given the value CptpointD + 2 



Rule Number: 246 

IF: Patient order for assist to chair/stretcher is 
Ambulate with assistance x 2 
THEN: CptpointD is given the value CptpointD + 4 



Rule Number: 247 

IF: Patient order for assist 
Ambulate with assistance 
THEN: CptpointD is given the 



to chair/stretcher is 
x 3 

value CptpointD + 6 



Rule Number: 248 

IF: Patient order for assist to chair/stretcher is 
Ambulate with assistance x 4 
THEN: CptpointD is given the value CptpointD + 8 



Rule Number: 243 

IF: Patient order for assist to chair /stretcher is 
Ambulate with assistance x 6 
THEN: CptpointD is given the value CptpointD + 12 



Rule Number: 250 

IF: Patient order for assist 
Ambulate with assistance 
THEN: CptpointD is given the 



to chair/stretcher is 
x 12 

value CptpointD + 24 
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Rule Number: 251 

IF: Patient order for assist to chair/stretcher is: 
Ambulate with assistance x 24 
THEN: Cptpaintl is given the value Cptpointl + 48 



Rule Number: 252 

IF: Patient order for assist to chair/stretcher is: Not 
ordered 

THEN: Cptpointl is given the value: no points awarded 



Rule Number: 253 

IF: Patient order for infant circumcision care is: 
Infant circumcision care 

THEN: Cptpointl is given the value Cptpaintl + 2 



Rule Number: 254 

IF: Patient order for infant circumcision care is: Not 
ordered 

THEN: Cptpointl is given the value: no points awarded 



Rule Number: 255 

IF: Patient order for phototherapy is: Phototherapy 
THEN: Cptpointl is given the value Cptpointl + 2 



Rule Number: 255 

IF: Patient order for phototherapy is: Not ordered 
THEN: Cptpointl is given the value: no points awarded 



Rule Number: 257 

IF: Patient order for isolation is: Isolation Cchange 

gown and gloves less than x 81 
THEN: Cptpointl is given the value: no points awarded 

Rule Number: 258 

IF: Patient order for isolation is: Isolation Cchange 

gown and gloves x 8 or more] 

THEN: Cptpointl is given the value Cptpointl + 2 



Rule Number: 258 

IF: Patient order for isolation is: Nat ordered 
THEN: Cptpointl is given the value: no points awarded 

Rule Number: 250 

IF: Patient order for accompany patient off ward is: 
Accompany patient off ward far less than 15 min 
THEN: Cptpointl is given the value: no points awarded 

Rule Number: 261 

IF: Patient order for accompany patient off ward is: 
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Accompany patient oFF ward For 15 to 30 min 

THEN: Cptpoint] is given the value Cptpoint] + 2 

Rule Number: 262 

IF: Patient order For accompany patient oFF ward is: 

Accompany patient oFF ward For greater than 30 min 

THEN: Cptpoint] is given the value Cptpoint] + 4 

Rule Number: 263 

IF: Patient order For accompany patient oFF ward is: Not 
ordered 

THEN: Cptpoint] is given the value: no points awarded 

Rule Number: 264 

IF: Patient order For other activities is: Other 
activities requiring less than 15 minutes 

THEN: Cptpoint] is given the value: no points awarded 

Rule Number: 265 

IF: Patient order For other activities is: Other 
activities requiring 15 to 30 minutes 

THEN: Cptpoint] is given the value Cptpoint] + 2 

Rule Number: 266 

IF: Patient order For other activities is: Other 
activities requiring 30 min to 1 hour 

THEN: Cptpoint] is given the value Cptpoint] + 4 

Rule Number: 267 

IF: Patient order For other activities is: 5pecial 

procedures > 1 hr < 2 hr [requiring continuous staFF 
attendance] 

THEN: Cptpoint] is given the value Cptpoint] + B 

Rule Number: 26B 

IF: Patient order For other activities is: Not ordered 

THEN: [ptpointj is given the value: no points awarded 

Rule Number: 263 

IF: Patient order For chest tube insertion is: Chest 
tube insertion 

THEN: Cptpoint] is given the value Cptpoint] + 4 

Rule Number: 270 

IF: Patient order For chest tube insertion is: Not 
ordered 

THEN: Cptpoint] is given the value: no points awarded 

Rule Number: 271 

IF: Patient order For lumbar puncture is: Lumbar 
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puncture 

THEN: CptpointD is given the value CptpointD + 4 
Rule Number: 272 

IF:- Patient order for lumbar puncture is: Not 
ordered 

THEN: CptpointD is given the value: no points awarded 
Rule Number: 273 

IF: Patient order for thoracentesis is: Thoracentesis 
ordered 

THEN: CptpointD is given the value CptpointD + 4 
Rule Number: 274 

IF: Patient order for thoracentesis is: Not 
ordered 

THEN: CptpointD is given the value: no points awarded 
Rule Number: 275 

IF: Patient order for paracentesis is: Paracentesis 
THEN: CptpointD is given the value CptpointD + 4 

Rule Number: 276 

IF: Patient order for paracentesis is: Not ordered 
THEN: CptpointD is given the value: no points awarded 

Rule Number: 277 

IF: Patient order for range of motion is: Range of 
motion exercises less than x 3 or TID 
THEN: CptpointD is given the value: no points awarded 

Rule Number: 27B 

IF: Patient order for range of motion is: Range of 
motion exercises at least x 3 but less than x 6 
THEN: CptpointD is given the value CptpointD + 4 

Rule Number: 279 

IF: Patient order for range of motion is: Range of 
motion exercises x 6 or q4h 
THEN: CptpointD is given the value CptpointD + B 

Rule Number: 2B0 

IF: Patient order for range of motion is: Range of 
motion exercises x 12 or q2h 
THEN: CptpointD is given the value CptpointD + 16 

Rule Number: 2B1 

IF: Patient order for range of motion is: Range of 
motion exercises x 24 or qlh 
THEN: CptpointD is given the value CptpointD + 32 
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Rule Number: 282 

IF: Patient order for range of motion is: Not ordered 
THEN: Cptpoint! is given the value: no points awarded 

Rule Number: 283 

IF: Patient order to transfer in-house or new admission 
is: Transfer in-house Cassess and orient! 

THEN: Cptpoint! is given the value Cptpoint! + 4 

Rule Number: 284 

IF: Patient order to transfer in-house or new admission 
is: New admission Cassess and orient! 

THEN: Cptpoint! is given the value Cptpoint! + 12 

Rule Number: 285 

IF: Patient order to transfer in-house or nsw admission 
is: Not ordered 

THEN: Cptpoint! is given the value: no points awarded 
Rule Number: 286 

IF: Patient order for 02 therapy or oxyhood is: Oxygen 
therapy 

THEN: Cptpoint! is given the value Cptpoint! + 2 
Rule Number: 2B7 

IF: Patient order for 02 therapy or oxyhood is: Oxyhood 
THEN: Cptpoint! is given the value Cptpoint! + 2 

Rule Number: 288 

IF: Patient order for 02 therapy or oxyhood is: Not 
ordered 

THEN: Cptpoint! is given the value: no points awarded 
Rule Number: 288 

IF: Patient order for incentive spirometer is: Incentive 

spirometer less than q4h 

THEN: Cptpoint! is given the value: no points awarded 
Rule Number: 280 

IF: Patient order for incentive spirometer is: Incentive 

spirometer q4h 

THEN: Cptpoint! is given the value Cptpoint! + 2 
Rule Number: 281 

IF: Patient order for incentive spirometer is: Incentive 

spirometer q2h 

THEN: Cptpoint! is given the value Cptpoint! + 4 
Rule Number: 282 

IF: Patient order for incentive spirometer is: Incentive 
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spirometer qlh 

THEN: CptpointD is given the value CptpointD + B 
Rule Number: 293 

IF: Patient order for incentive spirometer is: Not 
ordered 

THEN: CptpointD is given the value: no points awarded 
Rule Number: 294 

IF: Patient order for C&DB is: C&DB less than q4h 
THEN: CptpointD is given the valuB: no points awarded 

Rule Number: 295 

IF: Patient order for C&DB is: C&DB q4h 

THEN: CptpointD is given the value CptpointD + 2 

Rule Number: 296 

IF: Patient order for C&DB is: C&DB q2h 

THEN: CptpointD is given the value CptpointD + 4 

Rule Number: 297 

IF: Patient order for C&DB is: C&DB qlh 

THEN: CptpointD is given the value CptpointD + B 

Rule Number: 298 

IF: Patient order for C&DB is: Not ordered 

THEN: CptpointD is given the value: no points awarded 

Rule Number: 299 

IF: Patient order for IPPB or maximist is: IPPB or 

maximist less than BID or x 2 
THEN: CptpointD is given the value: no points awarded 

Rule Number: 300 

IF: Patient order for IPPB or maximist is: IPPB or 

maximist BID or x 2 

THEN: CptpointD is given the value CptpointD + 2 
Rule Number: 301 

IF: Patient order For IPPB or maximist is: IPPB or 

maximist TID or x 3 

THEN: CptpointD is given the value CptpointD + 3 
Rule Number: 302 

IF: Patient order For IPPB or maximist is: IPPB or 

maximist QID or x 4 

THEN: CptpointD is given the value CptpointD + 4 
Rule Number: 303 

IF: Patient order For IPPB or maximist is: IPPB or 
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maximist q4h or x B 

THEN: CptpointD is given the value CptpointD + B 
Rule Number: 304 

IF: Patient order for IPPB or maximist is: IPPB or 

maximist q2h or x 12 

THEN: CptpointD is given the value CptpointD + 12 
Rule Number: 305 

IF: Patient order for IPPB or maximist is: IPPB or 

maximist qlh or x 24 

THEN: Cptpoint] is given the value CptpointD + 24 

Rule Number: 306 

IF: Patient order for IPPB or maximist is: Not ordered 

THEN: CptpointD is given the value: no points awarded 

Rule Number: 307 

IF: Patient order far croup tent or mist tent is: Croup 
tent 

THEN: CptpointH is given the value CptpointD + 8 
Rule Number: 308 

IF: Patient order For croup tent or mist tent is: Hist 
tent 

THEN: CptpointD is given the value CptpointD + 8 
Rule Number: 309 

IF: Patient order for croup tent or mist tent is: Not 
ordered 

THEN: CptpointD is given the value: no points awarded 
Rule Number: 310 

IF: Patient order for chest pulmonary therapy is: Chest 
pulmonary therapy less than BID or x 2 

THEN: Cptpoint] is given the value: no points awarded 

Rule Number: 311 

IF: Patient order for chest pulmonary therapy is: Chest 
pulmonary therapy BID or x 2 

THEN: CptpaintD is given the value CptpointD + 2 

Rule Number: 312 

IF: Patient order for chest pulmonary therapy is: Chest 
pulmonary therapy TID or x 3 

THEN: CptpointD is given the value CptpointD + 3 

Rule Number: 313 

IF: Patient order for chest pulmonary therapy is: Chest 
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pulmonary therapy QID or x 4 

THEN: Cptpoint] is given the value CptpointD + 4 

Rule Number: 314 

IF: Patient order for chest pulmonary therapy is: Chest 
pulmonary therapy q4h or x B 

THEN: Cptpoint] is given the value Cptpoint] + 6 

Rule Number: 315 

IF: Patient order For chBst pulmonary therapy is: Chest 
pulmonary therapy q2h or x 12 

THEN: Cptpoint] is given the value Cptpoint] + 12 

Rule Number: 316 

IF: Patient order for chest pulmonary therapy is: Chest 
pulmonary therapy qlh or x 24 

THEN: Cptpoint] is given the value Cptpoint] + 24 

Rule Number: 317 

IF: Patient order for chest pulmonary therapy is: Not 
ordered 

THEN: Cptpoint] is given the value: no points awarded 
Rule Number: 318 

IF: Patient order for suctioning is: Suctioning less 
than q4h or x 6 

THEN: Cptpoint] is given the value: no points awarded 
Rule Number: 313 

IF: Patient order for suctioning is: Suctioning q4h or 
x 6 

THEN:. Cptpoint] is given the value Cptpoint] + 2 
Rule Number: 320 

IF: Patient order for suctioning is: Suctioning q2h or 
x 12 

THEN: Cptpoint] is given the value Cptpoint] + 4 
Rule Number: 321 

IF: Patient order for suctioning is: Suctioning qlh or 
x 24 

THEN: Cptpoint] is given the value Cptpoint] + 0 
Rule Number: 322 

IF: Patient order for suctioning is: Not ordered 

THEN: Cptpoint] is given the value: no points awarded 

Rule Number: 323 

IF: Patient order for trach care is: Trach care less 
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than x 3 or TID 

THEN: Cptpointl is given the value: no points awarded 
Rule Number: 384 

IF: Patient order for trach care is: Trach care at least 
TID Cor x 31 but less than q4h Cx 61 

THEN: Cptpointl is given the value Cptpointl + 4 

Rule Number: 385 

IF: Patient order for trach care is: Trach care q4h or 
x 6 

THEN: Cptpointl is given the value Cptpointl + 8 
Rule Number: 386 

IF: Patient order For trach care is: Trach care q8h or 
x 18 

THEN: Cptpointl is given the value Cptpointl + 16 
Rule Number: 387 

IF: Patient order for trach care is: Trach care qlh or 
x 84 

THEN: Cptpointl is given the value Cptpointl + 38 
Rule Number: 388 

IF: Patient order for trach care is: Nat ordered 

THEN: Cptpointl is given the value: no points awarded 



Rule Number: 388 

IF: Patient order for ventilator is: Uentilator 
THEN: Cptpointl is given the value Cptpointl + 10 

Rule Number: 330 

IF: Patient order for ventilator is: Not ordered 
THEN: Cptpointl is given the value: no points awarded 



Rule Number: 331 

IF: Patient order for hanging IU bottles is: KUO Cchange 
bottle BID or lessl 

THEN: Cptpointl is given the value Cptpointl + 4 



Rule Number: 338 

IF: Patient order For hanging IU bottles is: Simple 
Cchange bottle TID or QID3 
THEN: Cptpointl is given the value Cptpointl + 6 



Rule Number: 333 

IF: Patient order For hanging IU bottles is: Complex 
Cchange bottle q4h or more, two or more sites, or 
multilumen tube! 

THEN: Cptpointl is given the value Cptpointl + 8 
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Rule Number: 334 

IF: Patient order for hanging IU bottles is: Not ordered 
THEN: Cptpoint^ is given the value: no points awarded 

Rule Number: 335 

IF: Patient order for heparin lock or Broviac cathether 
is: Heparin lock 

THEN: CptpointH is given the value Cptpointl + 4 

Rule Number: 336 

IF: Patient order for heparin lock or Broviac cathether 
is: Broviac catheter 

THEN: CptpointD is given the value Cptpointl + 4 



Rule Number: 337 

IF: Patient order for heparin lock or Broviac cathether 
is: Not ordered 

THEN: CptpointD is given the value: no points awarded 



Rule Number: 338 

IF: Patient order for IU medications is: IU medications 

of less than qBh or x 3 

THEN: Cptpointl is given the value: no points awarded 
Rule Number: 338 

IF: Patient order for IU medications is: IU medications 

of qBh or x 3 

THEN: Cptpointl is given the value CptpointD + 2 



Rule Number: 340 

IF: Patient order for IU medications is: IU medications 

of q6h or x 4 

THEN: Cptpointl is given the value LptpointD + 3 



Rule Number: 341 

IF: Patient order for IU medications is: IU medications 

of q4h or x 6 

THEN: CptpointD is given the value CptpointD + 4 



Rule Number: 342 

IF: Patient order for IU medications is: IU medications 

of q2h or x 12 

THEN: CptpointD is given the value Cptpointl + B 



Rule Number: 343 

IF: Patient order for IU medications is: IU medications 

of qlh or x 24 

THEN: CptpointD is given the value CptpointD + 16 
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Rule Number: 344 

IF: Patient order for IU medications is: Not ordered 
THEN: CptpointD is given the value: no points awarded 



Rule Number: 345 

IF: Patient order For blood products is: Blood 
x 1 unit 

THEN: CptpointD is given the value CptpointD + 
Rule Number: 346 

IF: Patient order for blood products is: Blood 
x E unit 

THEN: CptpointD is given the value CptpointD + 
Rule Number: 347 

IF: Patient order for blood products is: Blood 
x 3 unit 

THEN: CptpointD is given the value CptpointD + 
Rule Number: 348 

IF: Patient order for blood products is: Blood 
x 4 unit 

THEN: CptpointD is given the value CptpointD + 
Rule Number: 349 

IF: PatiBnt order for blood products is: Blood 
x 6 unit 

THEN: CptpointD is given the value CptpointD + 
Rule Number: 350 

IF: Patient order for blood products is: Blood 
x IE unit 

THEN: CptpointD is given the value CptpointD + 
Rule Number: 351 

IF: Patient order far blood products is: Blood 
x E4 unit 

THEN: CptpointD is given the value CptpointD + 



products 

S 



products 

4 



products 

6 



products 

e 



products 

IE 



products 

£4 



products 
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Rule Number: 35E 

IF: Patient order far blood products is: Nat ordered 
THEN: CptpointD is given the value: no points awarded 

Rule Number: 353 

IF: Patient order for group teaching is: Group teaching 
THEN: CptpointD is given the value CptpointD + E 

Rule Number: 354 

IF: Patient order for group teaching is: Nat ordered 
THEN: CptpointD is given the value: no points awarded 
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Rule Number: 355 

IF: Patient order for preoperative teaching is: 
Preoperative teaching 

THEN: Cptpoint! is given the value Cptpoint! + 4 
Rule Number: 356 

IF: Patient order for preoperative teaching is: Not 
ordered 

THEN: Cptpoint! is given the value: no points awarded 
Rule Number: 357 

IF: Patient order for structured teaching is: Structured 
teaching Ci.e. diabetic, cardiac, colostomy care, 
post partum first 24 hr, newborn care, discharge! 

THEN: CptpointD is given the value Cptpoint! + 4 

Rule Number: 356 

IF: Patient order for structured teaching is: Nat 
ordered 

THEN: CptpointD is given the value: no points awarded 
Rule Number: 359 

IF: Patient order for emotional support is: Patient/ 
family support Ci.e. anxiety, denial, lonliness, 
etc . D 

THEN: CemopointD is given the value CemopointD + 4 
Rule Number: 360 

IF: Patient order for emotional support is: Not ordered 

THEN: CemopointD is given the value: no points awarded 

Rule Number: 361 

IF: Patient order for modification of lifestyle is: 
Emotional support for modification of lifestyle 
Ci.e. new prothesis, body image, behavior 
modification, etc.! 

THEN: CemopointD is given the value CemopointD + 4 
Rule Number: 362 

IF: Patient order for modification of lifestyle is: Not 
ordered 

THEN: CemopointD is given the value: no points awarded 
Rule Number: 363 

IF: Patient order for sensory deprivation is: Emotional 
support for sensory deprivation Ci.e. retarded, 
blind, deaf, language barrier, bilateral eye 
patches, confused, combative, etc.! 

THEN: CemopointD is given the value CemopointD + 6 
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Rule Number: 364 

IF: Patient order for sensory deprivation is: Not 
ordered 

THEN: Cemopointl is given the value: no points awarded 
Rule Number: 365 

IF: Patient order for cardiac monitor is: Cardiac 
monitor 

THEN: Cmonpointl is given the value Cmonpointl + 6 
Rule Number: 366 

IF: Patient order for cardiac monitor is: Not ordered 
THEN: Cmonpointl is given the value: no points awarded 

Rule Number: 367 

IF: Patient order for apnea monitor is: Apnea monitor 
THEN: Cmonpointl is given the value Cmonpointl + 6 

Rule Number: 366 

IF: Patient order For apnea monitor is: Not ordered 
THEN: Cmonpointl is given the value: no points awarded 

Rule Number: 369 

IF: Patient order for temp monitor is: Temp monitor 
THEN: Cmonpointl is given the value Cmonpointl + 6 

Rule Number: 370 

IF: Patient order for temp monitor is: Not ordered 
THEN: Cmonpointl is given the value: no points awarded 

Rule Number: 371 

IF: Patient order for pressure monitor is: Pressure 
monitor 

THEN: Cmonpointl is given the value Cmonpointl + 6 
Rule Number: 372 

IF: Patient order for pressure monitor is: Not ordered 
THEN: Cmonpointl is given the value: no points awarded 

Rule Number: 373 

IF: Cmonpointl > 0 

THEN: Cptpointl is given the value Cptpointl + 6 

Rule Number: 374 

IF: Croupointl > 5 

THEN: Cptpointl is given the value Cptpointl + 
Croupointl 

Rule Number.- 375 

IF: Cemopointl > 0 and Cemopointl < 11 
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THEN: Cptpoint] is given the value Cptpoint] + 
Cemopoint] 

Rule Number: 376 

IF: Cemopoint] > 10 

THEN: Cptpoint] is given the value Cptpoint] + 10 
Rule Number: 377 

IF: Cptpoint] >" 0 and Cptpoint] < 13 

THEN: Patient category is: I Self Care/Minimal Care 

Rule Number: 378 

IF: Cptpoint] > 12 and Cptpoint] < 32 
THEN: Patient category is: II Noderate Care 

Rule Number: 379 

IF: Cptpoint] > 31 and Cptpoint] < 64 

THEN: Patient category is: III Acute Care Cl staff to 3 

patients] 

Rule Number: 380 

IF: Cptpoint] > 63 and CptpointD < 96 

THEN: Patient category is: IU Intensive Care Cl staff 

to 2 patients] 

Rule Number: 381 

IF: Cptpoint] > 95 and Cptpoint] < 146 

THEN: Patient category is: U Continuous Care Cl staff 
to 1 patients] 

Rule Number: 382 

IF: Cptpoint] > 145 

THEN: Patient category is: UI Critical Care Cl staff 
to 1 patients] 
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APPENDIX E 



PROGRAM LISTINGS 



***•* INTRO. PRG *►*******★★*** •**•****★★****►***•********►**►*** ** 



* Author: 

* Date: 

* Screen Generated By: 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
26 November 1985 
The Software Battling Company 
Of New York, cl985 
Introductory screen for the proto- 
type model . 

Intro. Scr and Procfile.Prg 

None 

None 

Ual id . Prg 
10 February 1906 



* — Screen Input Program For Intro — 

★ 

Set Procedure To B:Pracfile 
Da Setup 
Public Flash 
Flash = ChrC 1451 



Do While .T. 

* — Screen display B: Intro. Scr — 

Set Procedure To B:Procfile 
Set Color To W+/B, / 

Clear 

?? Flash+”S.B: Intro. Scr/” 

Set Color To W+/B, /W 
@24,0 

Set Console Off 
Wait 

Set Console On 
Do B:Ualid 

Endda 
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•*** PROCFILE.PRG ** 

* Author: 

* Date: 

* Purpose: 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 

* 



Gary R. Harmeyer LCDR NC USN 
1 December 1985 

See comments above each procedure. 
None 

Orders and Ncaredb.Dbf 

All modules 

None 

18 February 1986 



» 

* -- Screen headers after patient selection — 



Procedure Headings 

G 8,3 Say Ptselect 
G 8,48 Say Ptregno 
G 8,56 Say DateCD 
G 8,65 Say Timed 
G 88,3 Say Curuser 
Return 



* — Used to reset pointer and put data from variable 

* — names into Orders . Dbf — 

Procedure Replaord 



Store DTOCCDatedD To Now 
Use B: Orders 
Do While .Not. EOFd 
Skip 
Enddo 

Append Blank 

Replace Order With Morder 
Replace Fmpssn With Ptfmpssn 
Replace Freq With Ofreq 
Replace Otime With Timed 
Replace Odate With Now 
Replace Prac With Curuser 
Replace Expertsys With Passdata 
Replace Onlytoday With Tadayonly 
Replace Critical With Ptpoint 
Replace Module With Omodule 
Replace Monpt With Monpoint 
Replace Emapt With Emopoint 
Replace Roupt With Roupoint 
Return 
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* — Used to reset pointer end put data from variable 

* -- names into Ncaredb.Dbf — 



Procedure Repnrord 



Use B:Ncaredb 
Do While .Not. EOFd 
Skip 
Enddo 

Append Blank 

Replace Nfmpssn With Ptfmpssn 
Replace Nord With border 
Replace Ntime With Timed 
Replace Ndate With Dated 
Replace Nurse With Curuser 
Replace Ndiag With Nursdiag 
Replace Assess With Nassess 
Replace Relate With Nrelate 
Replace Goal With Ngoal 
Replace Nfreq With Ofreq 
Replace Emotea With Emoteach 
Return 



* — Determine the current nursing care level — 

Procedure Current 
Xgoa4cur ■ ”B” 

0 23,67 Get Xgoa4cur Piet ”!” 

Read 

Do While .Not. CXgoa4cur =* ”A” .Or. Xgoa4cur = ”B” .Or.; 
Xgoa4cur “ ”C”.Or. Xgoa4cur * ”D” .Or. Xgoa4cur = ”E”D 
0 23,67 Clear 
Store ” ” To Xgoa4cur 

@ 24,0 Say ’’Re-Enter Letter A, B, C, D or E” 

0 23,67 Get Xgoa4cur Piet ”!” 

Read 

Enddo 

* — Assign value to letter selected — 

Do Case 

Case Xgoa4cur • ”A” 

border - ” Inf ant/Toddler Care” 

Passdata - ”Q23 1” 

Ptpoint “ 6 
Case Xgoa4cur “ ”B” 

border “ ”SelF/binimum Care” 
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Passdata “ ”023 2” 
Ptpoint " 2 
Case Xgoa4cur - ”C” 

llorder • ’’Assisted Care” 
Passdata ” ”Q23 3” 
Ptpoint “ 6 
Case Xgoa4cur - ”D” 

llorder “ ’’Complete Care” 
Passdata - ”Q23 4” 
Ptpoint - 14 
Case Xpoa4cur - ”E” 

Horde - ’’Total Care” 
Passdata - ”023 5” 
Ptpoint “ 32 
Endcase 
Return 



* — Used to evaluate the proper value to pass to the 

* — expert system For oral, 1(1 or subq medication 

* — category options — 

Procedure Regmeds 
Do Case 

Case CTimeopt < 25 .Or. Timeopt =411 

* — Less than x 3 or TID 
Passdata = ”047 1” 

Ptpoint “ 0 

Case CTimeopt > 24 .And. Timeopt < 36D 

* — X 3 or TID up to x 12 trips 
Passdata - ”047 2” 

Ptpoint * 2 

Case CTimeopt > 35 .And. Timeopt < 403 

* — More than 12 trips 
Passdata - ”047 3” 

Ptpoint - 4 

Endcase 

Return 



* — Used to evaluate the proper value to pass to the 

* — expert system For laboratory category options 

Procedure Labcount 
Do Case 

Case CTimeopt < 34 .Or. Timeopt = 411 
Passdata = ”044 1” 

Ptpoint = 0 
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35 ] 



Case CTimeopt - 34 .Or. Timeopt - 
Passdata - ”044 3” 

Ptpaint - 2 
Case CTimeopt “36 .Or. Timeopt “37] 
Passdata “ ”Q44 3” 

Ptpoint * 4 

Case CTimeopt - 3B .Or. Timeopt “ 39] 
Passdata - ”Q44 4” 

Ptpoint - 8 
Endcase 
Return 



* — Determine the liter flow rate of oxygen — 

Procedure Liter 
Xliteropt - ” A” 

G 23,66 Get Xliteropt Piet ”!” 

Read 

Do While .Not. CXliteropt “ "A” .Or. Xliteropt “ ”B’’.0r. 
Xliteropt- ”C”.0r. Xliteropt- ”D”.0r. Xliteropt- ”E”] 
G 23,66 Clear 
Store ” ” To Xliteropt 

G 24,0 Say ’’Re-Enter Letter A, B, C, D or E” 

G 23,66 Get Xliteropt Piet ”!” 

Read 

Enddo 

* — Assign value to letter selected -- 
Do Case 

Case Xliteropt - ”A” 

XI iter - ”G 1-2 1/m” 

Case Xliteropt - ”B” 

XI iter - ”G 3-4 1/m” 

Case Xliteropt - ”C” 

Xliter - ”G 5-6 1/m” 

Case Xliteropt - ”B” 

Xliter - ”G 7-8 1/m” 

Case Xliteropt - ”B” 

Xliter - ”G 9-10 1/m” 

Endcase 

Return 



« — Used to evaluate the proper value to pass to the ex- 
* — pert system for IU medication category options — 
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Procedure IUmeds 



Do Case 

Case CTimeopt < 25 .Or. Timeopt ”41] 

* — Less than QBh or TID 
Passdata - ”074 1” 

Ptpoint ” 0 

Case CTimeopt > 24 .And. Timeopt < 31] 

* — QBh or TID 
Passdata - ”Q74 2” 

Ptpoint “ 2 

Case CTimeopt > 30 .And. Timeopt < 34] 

* — Q6h or x 4 
Passdata - ”Q74 3” 

Ptpoint - 3 

Case CTimeopt - 34 .Or. Timeopt - 35] 

* — Q4h or x 6 
Passdata - ”Q74 4” 

Ptpoint “ 4 

Case CTimeopt “ 36 .Or. Timeopt ” 37] 

* — Q2h or x 12 
Passdata - "Q74 5” 

Ptpoint “ B 

Case CTimeopt ■ 3B .Or. Timeopt ” 39] 

* — Qlh or x 24 
Passdata - ”Q74 6” 

Ptpoint “ 16 

Endcase 

Return 



* — Initialize variables in the order modules — 

Procedure Startup 

Ofreq - ” ” 

Ptpoint ■ 0 
Passdata = ” ” 

Todayonly - ”F” 

Emopoint - 0 
flonpoint - 0 
Roupoint “ 0 
Return 



* — Used to evaluate the proper value to pass to the 

* — expert system For range of motion category — 



153 



Procedure Range 



Do Case 

Case CTimeopt < 25 .Or. Timeopt ”413 

* — Less than x 3 
Passdata - "Q61 1” 

Ptpoint ” 0 

Case CTimeopt > 24 .And. Timeopt < 343 

* — X 3 or less than x 6 
Passdata - ”Q61 2” 

Ptpoint ” 4 

Case CTimeopt - 34 .Dr. Timeopt ” 353 

* — X 5 or Q4h 
Passdata ” ”Q61 3” 

Ptpoint " B 

Case CTimeopt - 36 .Dr. Timeopt - 373 

* — X 12 or Q2h 
Passdata - ”Q61 4” 

Ptpoint " 16 

Case CTimeopt - 38 .Or. Timeopt - 393 

* — X 24 or Qlh 
Passdata - *’Q61 5” 

Ptpoint ” 32 

Endcase 

Return 



* — Used to evaluate the proper value to pass to the 

* — expert system For cough and deep breathe category 

* — option — 

Procedure Cough 



Do Case 

Case CTimeopt < 34 .Or. Timeopt “ 413 
» — Less than Q4h or x 6 
Passdata - ”Q65 1” 

Ptpoint - 0 

Case CTimeopt ”34 .Or. Timeopt - 353 

* — Q4h or x 6 
Passdata - ”Q65 2” 

Ptpoint - 2 

Case CTimeopt ” 36 .Or. Timeopt " 373 

* — Q2h or x 12 
Passdata - ”Q65 3” 

Ptpoint - 4 

Case CTimeopt ” 3B .Or. Timeopt ” 393 

* — Qlh or x 24 



154 



Passdata ~ ”QB5 4” 
Ptpaint - 8 

Endcase 

Return 



* — Sets up the initial environment for each module 
Procedure Setup 
Clear 

Set Escape On 
Set Talk Off 
Set Echo Off 
Return 



* — Used to evaluate the proper value to pass to the 

* — expert system Far S&A, specific gravity, Guiac 

* — and spin Hct category option — 



Procedure Routine 
Do Case 

Case CTimeopt < 5 .Or. Timeopt “ 413 

* — No specific frequency ordered 
Roupoint - 0 

Case CTimeopt > 4 .And. Timeopt < 223 

* — X 1 or QD 



Roupoint ” 1 
Case CTimeopt > 21 

* X 2 or BID 
Roupoint - 2 

Case CTimeopt > 24 

* -- X 3 or TID 
Roupoint “ 3 

Case CTimeopt > 30 

* — X 4 or QID 
Roupoint - 4 

Case CTimeopt - 34 

* — X 6 or Q4h 
Roupoint - B 

Case CTimeopt - 3B 

* — X 12 or Q2h 
Roupoint - 12 

Case CTimeopt ■ 38 

* — X 24 or Qlh 
Roupoint ” 24 

Endcase 

Return 



.And. Timeopt < 253 
.And. Timeopt < 313 
.And. Timeopt < 343 
.Or. Timeopt - 353 
.Or. Timeopt ■ 373 
.Or. Timeopt - 393 
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***** UALID. PRG ******* 

* Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

m 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 

* 



Gary R . Harmeyer LCDR NC USN 
2 December 1985 
The Software Bottling Company 
Of New York, cl985 
Evaluate the validity of the 
password used . 

Ualid.Scr and Procfile.Prg 

Useinf o . Dbf 

Intro . Prg 

Master . Prg 

18 February 1986 



* — Screen Input Program For Ualid — 



Do Setup 

Public Xusepass , Curuser , Useacc 
Use B:Useinfo 
Xusepass " SpaceCS! 

Xusepasl * Spaced! 

Xusepas2 = Spaced! 

XusepasB * Spaced! 

Xusepas4 = Spaced! 

Xusepas5 = Spaced! 



Do While .T. 



* — Screen Display A:Ualid.Scr — 

Set Color To W+/B,W+/B 
Clear 

?? Flash* ”S . A : Ualid . Scr/ ” 

Set Color To W+/B.W+/B 
0 13,43 



Places an "X” on the screen to mask the password 
entered — 



Set Console Off 
Wait To Xusepasl 
@ 13,43 Say ’X’ 
Wait To Xusepas2 
@ 13,45 Say ’X* 
Wait To XusepasB 
Q 13,47 Say ’X’ 
Wait To Xusepas4 
@ 13,49 Say ’X’ 
Wait To Xusepas5 
0 13,51 Say ’X’ 
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Xusepass " ; 

UpperCXusepasl+Xusepas2+Xusepas3+Xusepas4+Xusepas53 
Set Console On 

* — Evaluates the password entered — 

Locate For Xusepass = Codeword 
IF CXusepass <> Codeword] .And. E0FC3 

0 24,15 Say ’’INUALID PASSWORD — HIT ANY KEY” 

@ 24,51 Say ” AND RE-ENTER” 

Set Console OFF 
Wait 

Set Console On 
Loop 
EndiF 

Store UFinitial + ’ ’ + TrimCUlnameD To Curuser 

Store Access To Useacc 
0 24,0 

0 23,80 Clear 

@ 24,7 Say ’’Your Password Has Been Accepted — ” 

G 24,42 Say ’’Please Press A Key To Continue” 

Set Console OFF 
Wait 

Set Console On 
Do B: Master 

Enddo 
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**** [RASTER . PRG ****** 

* Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

* 

» 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
EG November 1985 
The Software Bottling Company 
Of New York, cl985 
Menu program to branch between the 
admission’s department, the 
database administration and 
the patient care personnel . 
MastBr.Scr and Procfile.Prg 
None 

Ual id . Prg 

Admit, Ward or Addelete.Prg 
4 February 1986 



* — Screen I ,put Program For Master — 



Do Setup 

Public Xmasopt , Omodule 
Omodule “ SpaceCID 



Do While . T . 



* — Screen Display B: Master. Scr — 

Set Color To U+/B.W+/B 
Clear 

?? Flash* ”S.B: Master .Scr/” 

Set Color To U+/B.W+/B 
Xmasopt “ 0 
@ S , 56 Say DateCl 
@ S, 65- Say TimeCD 
@ EE, 3 Say Curuser 

@ EE, 67 Get Xmasopt Piet ”9” Range 0,4 
Read 



* — Evaluate action based on the option selected — 

* — Ualidate user’s access to area selected — 

Do Case 

Case Xmasopt - 0 
* — Sign-Off 
Close Databases 
Close Procedure 
Release All 
Return To Master 
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Case Xmasopt - 1 

* — Admission’s Department 
Do Case 

Case Useacc ”2 .Or. Useacc - 3 .Or. Useacc - 4 
@ 24,16 Say ’’Access Not Allowed — Press ” 

@ 24,44 Say ’’Any Key To Continue” 

Set Console Off 
Wait 

Set Console On 
Loop 

Case Useacc “ 0 .Or. Useacc “ 1 
Do B:Admit 
Endcase 

Case Xmasopt ■ 2 

* — Doctor Master 
Do Case 

Case Useacc - 1 .Or. Useacc - 2 .Or. Useacc - 3 
@ 24,16 Say ’’Access Nat Allowed — Press ” 

@ 24,44 Say ’’Any Key To Continue” 

Set Console OFF 
Wait 

Set Console On 
Loop 

Case Useacc “0 .Or. Useacc - 4 
Omodule - ”D” 

Do B:Uard 
Endcase 

Case Xmasopt ” 3 

* — Nursing Master 
Do Case 

Case Useacc “1 .Or. Useacc - 2 .Or. Useacc “ 4 
@ 24,16 Say ’’Access Not Allowed — Press ” 

@ 24,44 Say ’’Any Key Ta Continue” 

Set Console OFF 
Wait 

Set Console On 
Loop 

Case Useacc “0 .Or. Useacc - 3 
Omodule - ”N” 

Do B:Ward 
Endcase 

Case Xmasopt ■ 4 

* — System Administration 
Do Case 

Case Useacc “1 .Or. Useacc “3 .Or. Useacc - 4 
@ 24,16 Say ’’Access Not Allowed — Press ” 

0 24,44 Say ’’Any Key To Continue” 
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Set Console Off 
Wait 

Set Console On 
Loop 

Case Useacc =0 .Or. 
Do B:Addelete 
Endcase 
Endcase 

Release Xmasopt 
Enddo 



Useacc ” 2 
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**** ADMIT. PRG ****** 

* Author: 

* Date: 

* Screen Generated By 

* 

* Purpose: 

m 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Calls: 

* flodification Date: 

* 



Gary R. Harmeyer LCDR NC USN 
9 January 1906 

The Software Bottling Company 
OF New York, cl985 
Allows the admitting personnel to 
choose to admit or discharge a 
patient . 

Admit. Scr and Procfile.Prg 
None 

naster . Prg 

Pt_Info or Discharg.Prg 
25 January 1986 



* — Screen Input Program For Admit — 

m 



Do Setup 

Public Xadmitopt 



Do While .T. 



* — Screen Display B: Admit. Scr — 

Set Color To UJ+/B , UJ+/B 
Clear 

?? Flash+”S . B : Admit . Scr/ ” 

Set Color To U1+/B,W+/B 
Xadmitopt - 0 
@ 22,3 Say Curuser 

@ 22,67 Get Xadmitopt Piet ”9” Range 0,2 
Read 



* — Evaluate action based on the option selected — 
Do Case 

Case Xadmitopt - 0 

* — Sign-Off 
Close Databases 
Release All 
Close Procedure 
Return To Master 

Case Xadmitopt - 1 

* — Admit A Patient 
Do B:Pt_Info 

Loop 
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Case Xadmitopt - 2 

* — Discharge A Patient 

Do B:Discharg 

Loop 

Endcase 

Release Xadmitopt 
Enddo 



162 



**** pj INFO . PRG * | * M **‘*<tH<n***‘«‘'**«‘'*********»»**********»***** 



* Author: 

* Date: 

* Screen Generated By: 

* 

* Purpose: 

m 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
29 November 1985 
The Software Bottling Company 
Of New York, cl985 
Add a patient to the patient 
database file. 

Pt_Infa.Scr and Procfile.Prg 
Pt_Info . Dbf 
Admit . Prg 
None 

26 January 1986 



* — Screen Input Program for Pt_Info — 



□o Setup 

Public Xplname, Xpfname, Xpmname, Xraterank, Xfmpssan 

Public Xpbdate , Xpage , Xpsex , Xpadmdate , Xpregno 

Public Xpmeddiag , Xpphy , Xpprag , Xpall , Xpward , Xprm , Xpbed 

Xplname - SpaceC20D 

Xpfname - SpaceC12D 

Xpmname “ SpaceC33 

Xraterank = SpaceCllD 

Xfmpssan - ” -”+SpaceC9D 

Xpbdate - Dated 

Xpage - SpaceC33 

Xpsex - Spaced] 

Xpadmdate “ Dated 
Xpregno - SpaceCBD 
Xpmeddiag - SpaceC243 
Xpphy - SpaceC243 
Xpprog - SpaceC33 
Xpall “ SpaceC243 
Xpward “ SpaceC23 
Xprm - SpaceCID 
Xpbed “ SpaceCID 



Da While .T. 



* — Screen Display B: Pt_Info .Scr — 

Set Color To UI+/B.UJ+/B 
Clear 

?? Flash+ ”S . B : Pt_Inf o . Scr/ ” 

Set Color To U)+/B,U)+/B 

G 5,14 Get Xplname Piet ’’ ! XXXXXXXXXXXXXXXXXXX” 
G 7,14 Get Xpfname Piet ” ! XXXXXXXXXXX” 

G 9,14 Get Xpmname Piet ”!XX” 

G 11,14 Get Xraterank Piet ”!!!!!!!!!!!” 
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0 13,14 Get Xfmpssan Piet ”39-333333999” 

0 15,14 Get Xpbdate ; 

Range CTODC ”01/01/00”] , CTODC ”13/31/33”] 

0 17,14 Get Xpage Piet ”XXX” 

0 13,14 Get Xpsex Piet ”!” 

0 21,14 Get Xpadmdate; 

Range CTODC ”01/01/00” ] , CTODC ”12/31/33”] 

0 5,55 Get Xpregno Piet ”39999333” 

0 7,55 Get Xpmeddiag Piet ” ! XXXXXXXXXXXXXXXXXXXXXXX ” 

0 3,55 Get Xpphy Piet ”! XXXXXXXXXXXXXXXXXXXXXXX” 

0 11,55 Get Xpprog Piet ”!!!” 

0 13,55 Get Xpall Piet ”! XXXXXXXXXXXXXXXXXXXXXXX” 

* — Ualidate input For ward, room and bed assignment 

0 15,55 Get Xpward Piet ”3!” 

Read 

Do While .Not. CXpward - ”2E” .Or. Xpward - ”3E”] 
Xpward • SpaceC2] 

0 24,0 Say ’’Re-Enter Either 2E or 3E” 

0 15,55 Get Xpward Piet ”3!” 

Read 

Endda 

0 24,0 Clear 

0 17,55 Get Xprm Piet ”9” 

Read 

Do While .Not. CXprm - ”1” .Or. Xprm - ”2” .Or.; 

Xprm - ”3”] 

Xprm - Spaced] 

0 24,0 Say ’’Re-Enter Either 1 or 2 or 3” 

0 17,55 Get Xprm Piet ”3” 

Read 

Enddo 

0 24,0 Clear 

0 13,55 Get Xpbed PICT ”!” 

Read 

Da While .Not. CXpbed - ”A” .Or. Xpbed - ”B”] 

Xpbed - Spaced] 

0 24,0 Say ’’Re-Enter Either A or B” 

0 13,55 Get Xpbed Piet ”!” 

Read 

Enddo 

0 24,0 Clear 

* — Put data From variable names into DbF File — 

Use B : Pt_ I nFo 
Do While .Not. EOFC] 
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Skip 

Enddo 

Append Blank 

Replace Plname With Xplname 
Replace PFname With XpFname 
Replace Pmname With Xpmname 
Replace Raterank With Xraterank 
Replace Fmpssan With XFmpssan 
Replace Pbdate With Xpbdate 
Replace Page With Xpage 
Replace Psex With Xpsex 
Replace Padmdate With Xpadmdate 
Replace Pregno With Xpregno 
Replace Pmeddiag With Xpmeddiag 
Replace Pphy With Xpphy 
Replace Pprog With Xpprcg 
Replace Pall With Xpall 
Replace Pward With Xpuard 
Replace Prm With Xprm 
Replace Pbed With Xpbed 

Return 

Release Xplname , Xpf name , Xpmname , Xraterank , Xf mpssan 
Release Xpbdate , Xpage , Xpsex , Xpadmdate , Xpregno 
Release Xpmeddiag , Xpphy , Xpprog , Xpall , Xpuard , Xprm, Xpbed 

Enddo 
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«*** DISCHARG . PRG **************************************** 



* Author: 

* Date: 

* Screen Generated By : 

m 

* Purpose: 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Calls: 

» Modification Date: 

* 



Gary R. Harmeyer LCDR NC USN 
9 January 1385 

The Software Bottling Company 
□f New York, cl985 
Discharge a patient. 
Discharg.Scr and Procfile.Prg 
Pt_Info, Orders and Ncaredb.Dbf 
Admit . Prg 
None 

18 February 1986 



* — Screen Input Program For Discharg — 

* 



Do Setup 

Public Xdischopt , Xdcfssn, Xdclname, Xdcfname 
Public Xdcmname, Xdcpphy , Xmdfmpssn, Xppack 
Xppack “ .F. 

Select A 
Use B:Pt_Info 
Select B 
Use B: Orders 
Select C 
Use B:Ncaredb 



Do While .T. 

* — Store data from Dbf file into variable names — 



Select A 

Xdcfssn = Fmpssan 
Xdclname ■ Plname 
Xdcfname “ Pfname 
Xdcmname = Pmname 
Xdcpphy - Pphy 

* — Screen Display B : Discharg . Scr -- 

Set Color To W+/B,W+/B 
Clear 

?? F lash+ ”S . B : Discharg . Scr/ ” 

Set Color To U1+/B,W+/B 
Xdischopt ” 1 
G 22,3 Say Curuser 
G 13,2 Say Xdcfssn 
@ 13,17 Say Xdclname 
G 13,38 Say Xdcfname 
G 13,51 Say Xdcmname 
G 13,55 Say Xdcpphy 
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Range 0,3 



0 22,67 Get Xdischopt Piet ”9” 

Read 

* — Evaluate action based on the option selected — 
Do Case 

Case Xdischopt = 0 

* — Sign-Off 
If Xppack “ .T. 

Pack 

Endif 

Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xdischopt = 1 

* — Next Patient 
Skip 

If EOF CD 

0 24,15 Say ”No Additional Patients — Press ” 
0 24,47 Say ’’Any Key To Continue” 

Set Console Off 
Wait 

Set Console On 
If Xppack “ .T. 

Pack 

Endif 

Close Databases 
Return 
Else 
Loop 
Endif 

Case Xdischopt - 2 

* — Discharge patient 
Xppack - .T. 

Store ”’” + Xdcfssn + To Xmdfmpssn 

* — Eliminate patient data from database files 
Select B 

Do While .Not. E0FC3 

Locate For Fmpssn = &Xmdfmpssn 
If .Not. EOFCD 
Delete 
Skip 
Endif 
Enddo 
Pack 
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Select C 

Do While .Net. EOFCD 

Locate For Nfmpssn = SXmdFmpssn 
If .Not. EOFCD 
Delete 
Skip 
Endif 
Enddo 
Pack 

Select A 
Delete 
Skip 

If EOF CD 

@ 24,15 Say ”Na Additional Patients -- Press 
@ 24,47 Say ’’Any Key To Continue’’ 

Set Console Off 
Wait 

Set Console On 
Pack 

Close Databases 
Return 
Else 
Loop 
Endif 



Case Xdischopt • 3 

* — Admi t/Discharge Screen 
If Xppack “ .T. 

Pack 

Endif 

Close Databases 
Return 

Endcase 

Release Xdischopt , Xdcf ssn , Xdclname , Xdcf name 
Release Xdcmname , Xdcpphy , Xmdf mpssn , Xppack 

Enddo 
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wwww WARD . PR6 ************** 1 ************ 1 ** 1 *********** 1 ***** 



* Author: 

* Date: 

* Screen Generated By: 

* 

* Purpose: 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 
m Routine Called: 

* Modification Date: 

* 



Gary R . Harmeyer LCDR NC USN 
56 November 1985 
The Software Battling Company 
Of New York, cl985 
Determine ward selection. 
Ward.Scr and Procfile.Prg 
None 

Master .Prg 

WardS or WardS. Prg 

H February 1986 



* — Screen Input Program For Ward — 

* 

Do Setup 

Public X war dap t , Ourpt , Of req , Passdata , Pt point , Today only 
Public Monpoint , Emopoint , Roupoint , Ptselect , Morder,Now 
Public Ptf mpssn , Ptregno 
Of req “ Spaced! 

Passdata “ 5paceC6! 

Ptpoint “ 0 
Todayonly ” ”F” 

Manpoint ** 0 
Emopoint • 0 
Roupoint - 0 
Morder ” SpaceC57! 

Now • SpaceC8D 



Do While .T. 



* — Screen Display B:Ward.Scr — 

Set Color To W+/B.W+/B 
Clear 

?? Flash* ”S . B : Ward . Scr / ” 

Set Color To W+/B.W+/B 
Xwardopt ■ 3 
0 2,56 Say Dated 
@ 5,65 Say TimeCD 
0 55,3 Say Curuser 

@ 55,67 Get Xwardopt Piet ”9” Range 0,3 
Read 

* — Evaluate action based on the option selected — 
Do Case 



Case Xwardopt - 0 
* — Sign-Off 
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Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xumrdopt “ 1 

* — 2E Surgical Ward 
Do B:UJard2 

Return 

Case Xuiardopt “ 2 

* — 3E Medical Ward 
Do B:Ward3 

Return 

Case Xujardopt = 3 

* — Master Screen 
Return 

Endcase 

Release Xwardopt 
Enddo 
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* + »* Ulf^RDS . PR6 m*****^*****-* 1 ******************************^ 



* Author: 

* Dote: 

* Screen Generated By : 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Colling Routine: 

* Routine Colled: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
26 November 1905 
The Software Bottling Company 
Of New York, cl985 
Displays patients assigned to ward 
2E, for patient selection. 

Uard2 . Scr and Procfile.Prg 

Pt_Info .Dbf 

Master . Prg 

Doctor or Nurse. Prg 

4 February 1906 



* — Screen input program for U)ard2 — 

* 



Do Setup 

Public Xwd2opt , Xptlregno, Xpt2regno, XptSregno, Xpt4regno 
Public XptSregno , Xpt6regno , Xpt 1 , Xpt2 , Xpt3 , Xpt4 , XptS 
Public Xptlfmpssn, Xpt2fmpssn, Xpt3fmpssn, Xpt6 
Public Xpt4fmpssn , Xpt5fmpssn , Xpt6fmpssn 

* — Store specific data from Dbf file into variable 

* — names — 



Use B: Pt_Info 

Locate For Prm ■ ’1’ .And. Pbed 
Xptl - Pfname - C ’ ’ +PlnameD 

Xptlregno " Pregno 
Xptlfmpssn - Fmpssan 
Locate For Prm ■ ’1’ .And. Pbed 
Xpt2 * Pfname - C ’ ’ +PlnameD 

Xpt2regno “ Pregno 
Xpt2fmpssn - Fmpssan 
Locate For Prm - ’2’ .And. Pbed 
Xpt3 = Pfname - C ’ ’ +PlnameD 

XptSregno - Pregno 
XptSfmpssn " Fmpssan 
Locate For Prm - ’2’ .And. Pbed 
Xpt4 - Pfname - C’ ’ +PlnameD 
Xpt4regno - Pregno 
Xpt4fmpssn - Fmpssan 
Locate For Prm - ’3’ .And. Pbed 
Xpt5 - Pfname - C ’ ’ +Plnamel 

Xpt5regno - Pregno 
Xpt5fmpssn " Fmpssan 
Locate For Prm = ’3’ .And. Pbed 
Xpt6 “ Pfname - C ’ ’ +PlnameD 

XptSregno - Pregno 
Xpt6fmpssn - Fmpssan 



’A’ .And. Pward - ’2’ 



’B’ .And. Pward - ’2’ 



’A’ .And. Pward * ’2’ 



’ B’ .And. Pward - ’2’ 



’A’ .And. Pward - ’2’ 



’B’ .And. Pward - ’2’ 
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Do While .T. 



* — Screen Display B:Ward2.Scr — 

Set Color To W+/B,W+/B 
Clear 

?? F lash+ ”S . B : Ward2 . Scr/ ” 

Set Color To W+/B,W+/B 
Xwd2apt - 7 
@2,56 Say Dated 
@ 2,65 Say Timed 
@9,39 Say Xptl 
@ 10,39 Say Xpt2 
@ 12,39 Say Xpt3 
@ 13,39 Say Xpt4 
G 15,39 Say XptS 
G 16,39 Say Xpt6 
G 22,3 Say Curuser 

G 22,67 Get Xwd2opt Piet ”9” RangB 0,7 
Read 



* — Evaluate action based on the option selected — 

* — Store data From Dbf file into variable names -- 

Do Case 

Case Xwd2opt ” 0 

* — Sign-Off 
Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xwd2apt ” 1 

* — Patient in roam 1 bed A 

Locate For Prm -’l’.And. Pbed -’A’. And. Piuard -’2’ 
Ptregno “ Xptlregna 
Ptselect 

Pward-C’ ’+Prm3-C’ ’+Pbedl-C* ’+Xptll 

□urpt - Xptl 
Ptfmpssn = Xptlfmpssn 
If Ourpt “ ” ” 

@ 24,9 Say ’’Sorry No Patient In That Bed — ” 

@ 24,41 Say ’^Please Press Any Key To Continue” 

Set Console Off 
Wait 

Set Console On 
Loop 
Endif 
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IF Omodule - ”D” 

Do B: Doctor 
Return 
Else 

Do B: Nurse 
Return 
EndiF 
Return 

Case XtudEopt “ E 

* — Patient in room 1 bed B 

Locate For Prm ”’l’. And. Pbed “’B’.And. Ptuard = ’E’ 
Ptregno = XptEregno 
Ptselect 

Pward -C ’ ’+PrmD-C’ ’+PbedJ-C’ ’+XptED 

Ourpt ” XptE 
Ptfmpssn ” XptEFmpssn 
IF Qurpt - ” 

0 S4 , 3 Say ’’Sorry No Patient In That Bed — ” 

0 E4 , 41 Say ’’Please Press Any Key To Continue” 

Set Console OFF 
Wait 

Set Console On 
Loop 
EndiF 

IF Omodule - ”D” 

Do B: Doctor 
Return 
Else 

Do B: Nurse 
Return 
EndiF 
Return 

Case XwdEopt - 3 

* -- Patient in room E bed A 

Locate For Prm- ’E’.And. Pbed”’A’ .And. Pward- ’E’ 
Ptregno ** Xpt3regno 
Ptselect 

Pward -C’ ’+Prml-C’ ’+Pbedl-C’ ’+Xpt31 

Ourpt “ Xpt3 
PtFmpssn ” Xpt3Fmpssn 
IF Ourpt = ” ” 

0 E4,3 Say ’’Sorry No Patient In That Bed -- ” 

0 E4,41 Say ’’Please Press Any Key To Continue” 

Set Console OFF 
Wait 

Set Console On 
Loop 
EndiF 
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If Omadule - ”D” 

Do B: Doctor 
Return 
Else 

Da B: Nurse 
Return 
Endif 
Return 

Case XwdEopt =■ 4 

* — Patient in room 2 bed B 

Locate Far Prm- ’2’. And. Pbed- ’B’.And. Pward- ’2’ 
Ptregno - Xpt4regno 
Ptselect 

Puiard -C ’ ’+PrmD-C’ ’+PbedD-C’ ’+Xpt4D 

Ourpt “ Xpt4 
Ptfmpssn “ XptHfmpssn 
If Ourpt - ” 

0 24,9 Say ’’Sorry No Patient In That Bed — ” 

@ 24,41 Say ’’Please Press Any Key To Continue” 

Set Console Off 
Ulait 

Set Console On 
Loop 
Endif 

If Omodule - ”D” 

Do B: Doctor 
Return 
Else 

Do B: Nurse 
Return 
Endif 
Return 

Case Xwd2opt “ 5 

* — Patient in room 3 bed A 

Locate For Prm - ’3’. And. Pbed- ’A’. And. Pward” ’2’ 
Ptregno - Xpt5regno 
Ptselect 

Puiard -C ’ ’+PrmD-C’ ’+Pbed3-C’ ’+Xpt5D 

Ourpt - Xpt5 
Ptfmpssn “ Xpt5fmpssn 
If Ourpt - ” 

@24,3 Say ’’Sorry No Patient In That Bed — ” 

@ 24,41 Say ’’Please Press Any Key To Continue” 

Set Console Off 
Wait 

Set Console On 
Loop 
Endif 



If Omodule - ”D" 

Do B: Doctor 
Return 
Else 

Do B: Nurse 
Return 
Endif 
Return 

Case XudBopt ” 6 

* — Patient in room 3 bed B 

Locate For Prnr ’3’. And. Pbed“ ’ B ’ . And . Pward- ’2’ 
Ptregno - Xpt6regno 
Ptselect =; 

Pward -C ’ ’+PrmD-C’ ’+PbedD-C’ ’+Xpt6D 

Ourpt “ Xpt6 
Ptfmpssn - Xpt6fmpssn 
If Ourpt - " 

@ 24,9 Say ’’Sorry No Patient In That Bed — ” 

@ 24,41 Say ’’Please Press Any Key To Continue” 

Set Console Off 
Wait 

Set Console On 
Loop 
Endif 

If Omodule - ’’D” 

Do B : Doctor 
Return 
Else 

Do B: Nurse 
Return 
Endif 
Return 

Case Xwd2apt ■ 7 

* — Master Screen 
Return 

Endcase 

Release Xud2opt , Xptl regno , Xpt2regno , Xpt3regno 
Release XptSregno, Xpt6regno, Xpt5fmpssn, Xpt6fmpssn 
Release Xptlfmpssn, Xpt2fmpssn, Xpt3fmpssn, Xpt4fmpssn 
Release Xpt4regno , Xptl , Xpt2 , Xpt3 , Xpt4 , Xpt5 , Xpt6 

Enddo 
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**** WARDS . PRG ******************************************* 



* Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* flodification Date: 



Gary R. Harmeyer LCDR NC USN 
11 January 1986 
The Software Bottling Company 
Of New York, clS85 
Displays patients assigned to ward 
3E, for patient selection. 
Uard3.Scr and Procfile.Prg 
Pt_Info .Dbf 
Master . Prg 
Doctor or Nurse. Prg 
3 March 1986 



* — Screen input program for Ulard3 — 

* 

Do Setup 

Public Xwd3opt , Xpt7, XptB, Xpt9, XptlO, Xptll , XptlE 
Public Xpt7regno , XptBregno , Xpt9regno , XptlOregno 
Public Xpt 1 1 regno , XptlSregno , Xpl If mpssn , XplSf mpssn 
Public Xpt7f mpssn, XptBf mpssn , Xpt9f mpssn , Xpl Of mpssn 

* — Store specific data from Dbf file into variable 

* — names — 



Use B:Pt_Info 

Locate For Prm ” ’1’ .And. Pbed =* ’A’ .And. Pward - ’3’ 
Xpt7 - Pfname - C ’ ’ +Plnamel 

Xpt7regno *= Pregno 
Xpt7fmpssn - Fmpssan 

Locate For Prm “ ’1’ .And. Pbed ” ’B’ .And. Pward “ ’3’ 
XptB = Pfname - C ’ ’ +PlnameD 

XptBregno - Pregno 
XptBfmpssn ■■ Fmpssan 

Locate For Prm = ’ 2 ’ .And. Pbed - ’A’ .And. Pward - ’3’ 
Xpt9 “ Pfname - C ’ ’ +PlnameD 

Xpt9regno - Pregno 
Xpt9fmpssn " Fmpssan 

Locate For Prm - ’ 2 ’ .And. Pbed =* ’B’ .And. Pward “ ’3’ 
XptlO - Pfname - C ’ ’ +PinameD 

XptlOregno - Pregno 
XplOfmpssn = Fmpssan 

Locate For Prm “ ’3’ .And. Pbed “ ’A’ .And. Pward - ’3’ 
Xptll “ Pfname - C ’ ’ +PlnameD 

Xptllregno =* Pregno 
Xpllfmpssn “ Fmpssan 

Locate For Prm - ’3’ .And. Pbed “ 

XptlE ■ Pfname - C ’ ’ +PlnameD 

XptlEregno * Pregno 
XplEfmpssn - Fmpssan 



’B’ .And. Pward 



’3 



Do While .T. 



* — Screen Display B:Ward3.Scr -- 

Set Color To W+/B.W+/B 
Clear 

?? Flash+”S.B:Ward3.Scr/” 

Set Color To W+/B,W+/B 
Xuid3opt ” 7 
0 2,56 Say Dated 
0 2,65 Say Timed 
0 9,39 Say Xpt7 
0 10,33 Say XptB 
0 12,33 Say XptS 
0 13,33 Say XptlO 
0 15,33 Say Xptll 
0 16,33 Say Xptl2 
0 22,3 Say Curuser 

0 22,67 Get Xuid3opt Piet ”3” Range 0,7 
Read 

* — Evaluate action based on the option selected — 

* — Store data from Dbf file into variable names — 

Do Case 

Case Xiud3opt = 0 

* — Sign-Off 
Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xuid3opt - 1 

* — Patient in room 1 bed A 

Locate For Prm- 'l’.And. Pbed- ’A’. And. Puiard- ’3’ 
Ptregno - Xpt7regno 
Ptselect =; 

Puiard -C* ’+Prml-C’ ’+Pbedl-C’ ’+Xpt73 

Ourpt - Xpt7 
Ptfmpssn - Xpt7fmpssn 
If Ourpt - ” ” 

Wait ’’Sorry No Patient In That Bed 
- Please Press A Key To Continue” 

Loop 

Endif 

If Omodule = ”D” 

Do B: Doctor 
Return 



17 ? 



Else 

Do B: Nurse 
Return 
Endif 
Return 

Case Xwd3opt = 2 

* -- Patient in room 1 bed B 

Locate For Prm- ’l*. And. Pbed“ ’ B’.And. Piuard 
Ptregno = XptSregno 
Ptselect ; 

Pujard -C ’ ’+PrmD-C’ ’ -t-Pbedl-C ’ 

Ourpt - XptB 
Ptfmpssn = XptBFmpssn 
If Ourpt - ” 

Wait ’’Sorry No Patient In That Bed 

- Please Press A Key To Continue” 

Loop 

Endif 

If Qmodule - ”D” 

Do B: Doctor 
Return 
Else 

Da B: Nurse 
Return 
Endif 
Return 

Case Xud3opt = 3 

* — Patient in room 2 bed A 

Locate For Prm- ’2 ’.And. Pbed” ’A ’.And. Pujard 
Ptregno * XptSregno 
Ptselect =*; 

Pujard -C’ , +Prm3-C* ’+Pbedl-C’ 

Ourpt " XptB 
Ptfmpssn = XptBfmpssn 
If Ourpt - ” 

Wait ’’Sorry No Patient In That Bed 

- Please Press A Key To Continue” 

Loop 

Endif 

If Omodule - ”D” 

Do B: Doctor 
Return 
Else 

Do B:Nurse 
Return 
Endif 
Return 



’3 ’ 

+Xpt8D 



’3’ 

+XptBD 
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Pumrd= ’3’ 



Case Xwd3opt = 4 

* — Patient in room 2 bed B 

Locate For Prm- ’2’. And. Pbed= ’B’.And. 
Ptregno - XptlOregno 
Ptselect =; 

Puiard-C ’ ’+PrmD-C’ ’+PbedD-C’ 

□urpt - XptlO 
Ptfmpssn = XplOfmpssn 
If Ourpt - ” 

Llait "Sorry No Patient In That Bed 

- Please Press A Key To Continue” 
Loop 

Endif 

If Omodule - ”D” 

Do B: Doctor 
Return 
Else 

Do B: Nurse 
Return 
Endif 
Return 

Case Xwd3opt * 5 

* — Patient in room 3 bed A 

Locate For Prm- ’3’. And. Pbed= ’A’. And. 
Ptregno = Xptllregno 
Ptselect =; 

Pward-C ’ ’+Prm]-C’ ’+PbedD-C’ 

□urpt • Xptll 
Ptfmpssn - Xpllfmpssn 
If Ourpt - ” 

Uait "Sorry No Patient In That Bed 

- Please Press A Key To Continue” 
Loop 

Endif 

If Omodule - ”D” 

Do B: Doctor 
Return 
Else 

Do B: Nurse 
Return 
Endif 
Return 

Case Xwd3opt “ 6 

* — Patient in room 3 bed B 

Locate For Prm= ’3 ’.And. Pbed= ’B’.And. 
Ptregno * Xptl2regno 
Ptselect 

Pward-C’ ’+Prml-C* ’+Pbedi-C’ 



’ +XptlO D 



Pward= ’ 3 ’ 

’+Xptll ] 



Pward= ’3’ 

’+Xptl2D 
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Ourpt - Xptl2 
Ptfmpssn “ Xpl2fmpssn 
IF Ourpt *= ” ” 

Wait ’’Sorry No Patient In That Bed 
- Please Press A Key To Continue” 

Loop 

Endif 

If Omodule = ”D” 

Do B: Doctor 
Return 
Else 

Do B: Nurse 
Return 
Endif 
Return 

Case XwdBopt * 7 

* — Naster Screen 
Return 

Endcase 

Release XwdBopt, Xpt7, XptB, XptS, XptlO, Xptll , Xptl2 
Release Xpt7regno , XptBregno , Xpt9regno , XptlOregno 
Release Xptll regno , Xptl2regno , Xpllf mpssn , Xpl2f mpssn 
Release Xpt7f mpssn , XptBf mpssn , Xpt9f mpssn , XplOf mpssn 

Enddo 
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*«*• OOCTOR . PRG *««*«'»*****»***-****************** , ' , ***** < *** 



* Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Calls: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
27 November 1985 
The Software Bottling Company 
Of New York, cl985 
Menu for selecting, viewing or 
modifying the doctor’s orders. 
Doctor. Prg and Procfile.Prg 
Orders . Dbf 
Uard2 or UJard3 . Prg 

Doc.menu, Transfer or Discont.Prg 
4 February 1906 



* — Screen Input Program For Doctor — 



Do Setup 

Public Xdocopt , Xmptf mpssn , Dmenu 
Dmenu - Spaced! 



Do While .T. 



* — Screen Display A: Doctor. Scr — 

Set Color To UI+/B.U1+/B 
Clear 

?? Flash+”S . A : Doctor .Scr/ ” 

Set Color To UI+/B , UI+/B 
Xdocopt *■ 6 
Do Headings 

0 22,67 Get Xdocopt Piet ”9” Range 0,6 
Read 



* — Evaluate action based on the option selected -- 
Do Case 

Case Xdocopt - 0 

* — Sign-Off 
Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xdocopt “ 1 

* — Order Entry 
Do B:Dac_Menu 

If Dmenu - ”1” 

Loop 

Else 
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Return 

Endif 

Case Xdocopt = 2 

* — Admit / Transfer / Discharge Patient 
Do B: Transfer 

If Dmenu - "1” 

Loop 

Else 

Return 

Endif 

Case Xdocopt “ 3 

* — Review Medical Orders 
Clear 

Set Color To U+/B , UI+/B 
@ 1,22 Say ’’Patient Orders For:” 

@ 1,42 Say Ourpt 

@ 3,10 Say ’’Press — Ctrl and S — Keys to Pause ” 

@ 3,47 Say ’’The Scrolling If Necessary” 

Use B: Orders 

Store + Ptfmpssn + ”’” To Xmptfmpssn 

Report Form B:0rd For Fmpssn - SXmptfmpssn .And.; 

Module # ’N’ 

UJait 

Loop 

Case Xdocopt = 4 

* — Print Medical Orders 

e 24,0 Say ’’Turn On Your Printer, ” 

@ 24,22 Say ’’Then Hit Any Key To Print” 

Set Console Off 
Wait 

Set Console On 
Clear 

@ 12,30 Say ’’Printing, Please Wait’’ 

Set Console Off 

Set Device To Print 

@ 1,22 Say ’’Patient Orders For:” 

@ 1,42 Say Ourpt 
Set Device To Screen 
Use B: Orders 

Store ” ’ ” + Ptfmpssn + ” ’ ” To Xmptfmpssn 
Report Farm B:0rd Noeject To Print For; 

Fmpssn = SXmptfmpssn .And. Module # ’N’ 

Set Console On 

@ 24,0 Say ’’Finished Printing, ” 

@ 24,19 Say ’’Hit Any Key To Continue” 

Set Console Off 
UJai t 
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Set Console On 
Loop 

Case Xdocopt “ 5 

* — Discontinue An Order 
Do B:Discont 

If Dmenu - ”1” 

Loop 

Else 

Return 

Endif 

Case Xdocopt - 6 

* — Master Screen 
Return 

Endcase 

Release Xdocopt , Xmptfmpssn 
Enddo 
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**«» qqq MENU . PRG ****** **** **• ************************** •** 



* Author: 

* Dote: 

* Screen Generated By : 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* 

* Modification Date: 



Gary R . Harmeyer LCDR NC USN 
27 November 1905 
The Software Bottling Company 
Of New York, cl985 
Menu of ten order categories for 
doctor to choose from . 
Doc_Menu.Scr and Drproc.Prg 
None 

Doctor . Prg 

Activity , Diet , IUA, Lab, Monitor, Phaml 
Xray,Lung,US or Routine. Prg 
4 February 1986 



* — Screen Input Program For Doc_Menu — 

* 

Do Setup 

Public Xdocmenopt 



Do While .T. 



* — Screen Display A: Doc_Menu . Scr — 

Set Color To W+/B,W+/B 
Clear 

?? Flash+”S . A : Doc_Menu . Scr/ ” 

Set Color To W+/B,W+/B 
Xdocmenopt ■ 11 
Do Headings 

@ 22,66 Get Xdocmenopt Piet ”99” Range 0,12 
Read 



* -- Evaluate action based on the option selected — 
Do Case 



Case Xdocmenopt = 0 
* — Sign-Off 
Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xdocmenopt - 1 
Do B:Activity 
If Dmenu - ”1” 
Loop 
Else 
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RBturn 

Endif 

Case Xdocmenopt - E 
Do B:Diet 
If Dmenu - ”1” 
Loop 
Else 

Return 

Endif 

Case Xdocmenopt = 3 
Do B: IUA 
If Dmenu - ”1” 
Loop 
Else 

Return 

Endif 

Case Xdocmenopt “ 4 
Do B : Lab 
If Dmenu - ”1” 
Loop 
Else 
Return 
Endif 

Case Xdocmenopt - 5 
Do B: Monitor 
If Dmenu - ”1” 
Loop 
Else 

Return 

Endif 

Case Xdocmenopt - 6 
Do B.-Phaml 
If Dmenu - ”1” 
Loop 
Else 

Return 

Endif 

Case Xdocmenopt = 7 
Do B-.Xray 
If Dmenu - ”1” 
Loop 
Else 
Return 
Endif 
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Case Xdocmenopt - 8 
Do B:Lung 
IF Dmenu - ”1” 

Loop 

Else 

Return 

Endif 

Case Xdocmenopt - 9 
Do B : US 
IF Dmenu = ”1” 

Loop 

Else 

Return 

EndiF 

Case Xdocmenopt = 10 
Do B: Routine 
IF Dmenu - "l” 

Loop 

Else 

Return 

EndiF 

Case Xdocmenopt = 11 

* — Doctor's Master Screen 
Dmenu - ”1” 

Return 

Case Xdocmenopt = IB 

* — Master Screen 

Store ' ’ To Dmenu 

Return 

Endcase 

Release Xdocmenopt 
Endda 
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**** ACTIVITY. PRG **** 

* Author: 

* Date: 

* Screen Generated By: 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
29 November 1985 
The Software Bottling Company 
Of New York, cl985 
Determine activity orders of the 
patient . 

Activity. Scr and Procfile.Prg 
Orders . Dbf 
Doc_Menu . Prg 
Time . Prg 
4 February 198G 



* — Screen Input Program For Activity — 

* 

Do Setup 
Public Xactopt 



Do While .T. 



* — Screen Display A : Activity . Scr — 

Set Color To U+/B.UJ+/B 
Clear 

?? Flash+ ”S . A : Activity . Scr/ ” 

Set Color To UI + /B, W+/B 
Xactopt = 13 
Do Headings 
Do Startup 

@ 22,66 Get Xactopt Piet ”99” Range 0,14 
Read 

* — Evaluate action based on the option selected -- 
Do Case 



Case Xactopt - 0 
* — Sign-Off 
Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xactopt = 1 

Morder ~ "Ambulate ad lib” 

Do Replaord 

Loop 
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Case Xactopt - 2 

Morder = ’’Ambulate w/ Assistance” 

Do B:Time 

Do Case 

Case CTimeopt < 5 .Or. Timeopt = 411 

* — No precise frequency given 
Passdata « ”Q51 18” 

Ptpoint = 0 

Case CTimeopt > 4 .And. Timeopt < 221 

* — X 1 

Passdata - ”Q51 11” 

Ptpoint - 2 

Case CTimeopt > 21 .And. Timeopt < 251 

* — X 2 or BID 
Passdata - ”Q51 12” 

Ptpoint “ 4 

Case CTimeopt > 24 .And. Timeopt < 311 

* X 3 or TID 
Passdata - ”Q51 13” 

Ptpoint = 6 

Case CTimeopt > 30 .And. Timeopt < 341 

* — X 4 or Q ID 
Passdata - ”Q51 14” 

Ptpoint - 8 

Case CTimeopt = 34 .Or. Timeopt = 351 

* — X 6 or Q4h 
Passdata = ”Q51 15” 

Ptpoint = 12 

Case CTimeopt = 36 .Or. Timeopt ■ 371 

* — X 12 or Q2h 
Passdata - ”051 16” 

Ptpoint " 24 

Case CTimeopt = 38 .Or. Timeopt = 381 

* X 24 or Qlh 
Passdata - ”Q51 17” 

Ptpoint - 48 

Endcase 

Do Replaord 
Loop 

Case Xactopt = 3 

Norder - "Strict Bedrest” 

Do Replaord 
Loop 

Case Xactopt - 4 

Norder = ’’Bedrest w/ BRP” 
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Do Replaord 
Loop 

Case Xactopt - 5 

florder = ’’Bedside Commode” 

Do Replaord 
Loop 

Case Xactopt - 6 

tlorder - ”00B to Stretcher us/ Assist” 

Do B:Time 

Do Case 

Case CTimeopt < 25 .Or. Timeopt =413 

* — Less than x 3 or TID 
Passdata = ”QS1 2” 

Ptpoint = 0 

Case CTimeopt > 24 .And. Timeopt < 343 

* — X 3 or less than Q4h Cx 63 
Passdata = "Q51 3” 

Ptpoint = 2 

Case CTimeopt = 34 .Or. Timeopt = 353 

* X 6 or Q4h 
Passdata = ”Q51 4” 

Ptpoint = 4 

Case CTimeopt = 36 .Or. Timeopt = 373 

* — X 12 or Q2h 
Passdata = ”Q51 5” 

Ptpoint = B 

Case CTimeopt = 30 .Or. Timeopt = 393 

* — X 24 or Qlh 
Passdata = ”Q51 6” 

Ptpoint - 16 

Endcase 

Do Replaord 
Loop 

Case Xactopt = 7 

florder = ’’Dangle Legs” 

Do B:Time 
Do Replaord 
Loop 

Case Xactopt = 0 

florder = ’’Keep on Back” 

Do Replaord 
Loop 
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Case Xactopt " 9 

(larder “ ’’May Shower” 

Do Replaord 
Loop 

Case Xactopt = 10 

(lorder ~ ’’Turn Patient” 

Do B:Time 
Do Replaord 
Loop 

Case Xactopt =» 11 

dorder =* "Turning Frame” 

Do B:Time 

Do Case 

Case CTimeapt < 3B .Or. Timeopt - 413 

* — Less than Q2h 
Passdata - ”Q25 1” 

Ptpoint “ 0 

Case CTimeapt “ 36 .Or. Timeopt - 373 

* — Q2h or x 12 
Passdata - ”Q25 2” 

Ptpoint - 14 

Case CTimeopt “ 38 .Or. Timeopt = 393 

* — Qlh or x 24 
Passdata - ”Q25 3” 

Ptpoint - 28 

Endcase 

Do Replaord 
Loop 

Case Xactopt - 12 

dorder ■ ”Up in Chair w/ Assist” 

Do B:Time 

Do Case 

Case CTimeopt < 25 .Or. Timeopt “ 413 

* — Less than x 3 or TID 
Passdata - ”051 1” 

Ptpoint - 0 

Case CTimeopt > 24 .And. Timeopt < 343 

* — X 3 or less than Q4h Cx 63 
Passdata - ”Q51 7” 

Ptpoint ” 2 

Case CTimeopt ” 34 .Or. Timeopt ” 353 

* — X 6 or 04h 
Passdata - ”Q51 8” 

Ptpoint “ 4 
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37 3 



Case CTimeapt - 36 .Dr. Timeopt - 

* — X 12 or Q2h 
Passdata - ”Q51 9” 

Ptpoint *■ B 

Case CTimeapt - 30 .Or. Timeopt - 393 

* — X 24 or Olh 
Passdata - ”Q51 10” 

Ptpaint “ 16 

Endcase 

□a Replaard 
Loop 

Case Xactapt “ 13 

* — Doctor’s Order Screen 
Dmenu m ’ 1 ’ 

Return 

Case Xactopt ” 14 

* — Master Screen 

Dmenu = ’ ’ 

Return 

Endcase 

Release Xactopt 
Enddo 
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mmmm XIME.PRG «*«**»*«*****«*************************»<**** 



* Author: 

* Date: 

* Screen Generated By: 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
29 November 1985 
The Software Bottling Company 
Of New York, cl995 
Determine the time of orders for 
the patient. 

Time.Scr and Procfile.Prg 
None 

All Orders and Ncaredb.Dbf modules. 
Timehelp . Prg 
4 February 1986 



* -- Screen Input Program For Time -- 



Do Setup 

Public Timeopt , Xtimetime 
Xtimetime * SpaceC43 



Do While .T. 



* — Screen Display A:Time.Scr — 

Set Color To UI+/B , UI+/B 
Clear 

?? Flash+”S . A : Time . Scr/ ” 

Set Color To LlI+/B,UJ+/B 
Timeopt - 41 
Do Headings 

@ 22,66 Get Timeopt Piet ”99" Range 1,41 
Read 



* — Evaluate action based on the option selected 
Do Case 

Case Timeopt “ 1 
Ofreq - ”PRN” 

Return 

Case Timeopt ■ 2 

Ofreq = ”Q 1-2 Hr PRN” 

Return 

Case Timeopt ” 3 

Ofreq - ”Q 2-3 Hr PRN” 

Return 
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Case Timeopt = 4 

Of req - ”Q 3-4 Hr PRN” 

Return 

Case Timeopt ” 5 
Of req - "On Call” 

Todayonly “ ”T” 

Return 

Case Timeopt - 6 
Of req - ”QD ” 

Return 

Case Timeopt = 7 
Of req = "HS” 

Return 

Case Timeopt = 8 
Ofreq - ”x 1” 

Todayonly - ”T” 

Return 

Case Timeopt = 8 

* — Today 0 

0 17,8 Get Xtimetime Piet ”3888” 
Read 

Ofreq = ’’Today 0 ’’ + Xtimetime 
Todayonly » ”T” 

Return 

Case Timeopt • 10 

Ofreq - ’’Daily 0 0200” 

Return 

Case Timeopt = 11 

Ofreq = ’’Daily 0 0400” 

Return 

Case Timeopt - 12 

Ofreq - ’’Daily 0 0600” 

Return 

Case Timeopt = 13 

Ofreq - ’’Daily 0 0800” 

Return 

Case Timeopt m 14 

Ofreq ” ’’Daily 0 1000” 

Return 
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Case Timeopt “ 15 

Ofreq - ’’Daily 0 1200” 
Return 

Case Timeopt =* 16 

Ofreq * ’’Daily 0 1400” 
Return 

Case Timeopt - 17 

Ofreq - ’’Daily 0 1600” 
Return 

Case Timeopt = IB 

Ofreq = ’’Daily 0 1B00” 
Return 

Case Timeopt “ 19 

Ofreq - ’’Daily 0 2000” 
Return 

Case Timeopt * 20 

Ofreq - ’’Daily 0 2200” 
Return 

Case Timeopt = 21 

Ofreq - ’’Daily 0 2400” 
Return 

Case Timeopt ** 22 
Ofreq - ’’BID” 

Return 

Case Timeopt “ 23 
Ofreq - ”Q 12 Hr” 
Return 

Case Timeopt ~ 24 
Ofreq - ”x 2” 

Todayonly - ”T” 

Return 

Case Timeopt = 25 
Ofreq - ”TID” 

Return 

Case Timeopt - 26 
Ofreq - ”AC” 

Return 
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Case Timeapt = 27 
OFreq - ”PC” 
Return 

Case Timeopt =■ 20 
□Freq - ”Q 0 Hr” 
Return 

Case Timeopt =■ 20 
□Freq - "x 3” 
Todayonly ” "T” 
Return 

Case Timeopt = 30 
□Freq - "Q ShiFt” 
Return 

Case Timeopt = 31 
□Freq - ”QID” 
Return 

Case Timeopt = 32 
□Freq = ”Q 6 Hr" 
Return 

Case Timeopt = 33 
□Freq - ”x 4” 
Todayonly - ”T” 
Return 

Case Timeopt - 34 
□Freq - ”Q 4 Hr" 
Return 

Case Timeopt = 35 
□Freq - ”x 6” 
Todayonly - ”T” 
Return 

Case Timeopt “ 36 
□Freq - ”Q 2 Hr” 
Return 

Case Timeopt - 37 
□Freq - ”x 12” 
Todayonly = ”T” 
Return 
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Case Timeopt = 38 
Gfreq - ”Q 1 Hr” 

Return 

Case Timeopt • 39 
Ofreq = ”x 24” 

Todayonly - "T” 

Return 

Case Timeopt ■ 40 

* — Help 

Do B:Timehelp 
Loop 

Case Timeopt ” 41 

* — Return to Calling Screen 
Return 

Endcase 

Release Xtimetime 
Enddo 
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* * * * j inEHELP PRG **********■*»■•***<•»**» *■**»**«* •••*•*•* *«• 



* Author: 

* Date: 

* Screen Generated By 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 



Gary R . Harmeyer LCDR NC USN 
1 December 1985 
The Software Bottling Company 
Of New York, cl9B5 
Brief on-line help facility for 
Time . Prg . 

Timehelp.Scr and Procfile.Prg 
None 

Time . Prg 
None 

26 January 1986 



* — Screen Input Program For Timehelp — 

* 

Do Setup 



Da While .T. 



* — Screen Display A : Timehelp . Scr — 

Set Color To W+/B.W+/B 
Clear 

?? Flash+”S , A : Timehelp . Scr/ ” 

@24,0 

@ 24,37 ’’Press Any Key To Continue” 

Set Console Off 

Wait 

Set Console On 
Return 



Enddo 



***** diet.prg ******************************************** 



* Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Colling Routine: 

* Routine Called: 

* Modification Date: 

* 



Gary R. Harmeyer LCDR NC USN 
27 November 1985 
The Software Bottling Company 
Of New York, cl9B5 
Determine the diet orders of the 
patient . 

Diet.Scr and Procfile.Prg 
Orders . Dbf 
Doc_Menu . Prg 
Time . Prg 
4 February 1986 



* — Screen Input Program For Diet — 

* 



Do Setup 
Public Xdietopt 



Do While .T. 



* — Screen Display A:Diet.Scr — 

Set Color To W+/B.W+/B 
Clear 

?? Flash+ ”S . A : Diet . Scr/ ” 

Set Color To W+/B , W+/B 
Xdietopt = 19 
Do Headings 
Do Startup 

@ 22,66 Get Xdietopt Piet ”99” Range 0,20 
Read 



* — Evaluate action based on the option selected -- 
Do Case 

Case Xdietopt = 0 
* — Sign-Off 
Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xdietopt - 1 

Morder ■ ’’Diet As Tolerated” 

Do Replaord 
Loop 
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Case Xdietopt =■ 2 

Morder ■ ’’Clear Liquids Diet” 

Do Replaord 
Loop 

Case Xdietopt ■ 3 

Morder = ’’Diabetic Diet” 

Do Replaord 
Loop 

Case Xdietopt - 4 

Morder ■ ”Fat-control led Diet” 

Do Replaord 
Loop 

Case Xdietopt - 5 

Morder = ’’Full Liquid Diet” 

Do Replaord 
Loop 

Case Xdietopt - 6 

Morder - ” InFant/Neonat Bottle xl” 
Passdata - ”Q29 1” 

Ptpoint = 2 
Do Replaord 
Loop 

Case Xdietopt = 7 

Morder * ” Inf ant/Neonat Bottle x6” 
Passdata = ”Q29 2” 

Ptpoint - 12 
Do Replaord 
Loop 

Case Xdietopt * 8 

Morder - ” Inf ant/Neonat Bottle xl2” 
Passdata - ”Q29 3” 

Ptpoint - 24 
Do Replaord 
Loop 

Case Xdietopt “ 9 

Morder - ’’Mechanical Soft Diet” 

Do Replaord 
Loop 

Case Xdietopt m 10 

Morder = ”Na Controlled Diet” 

Do Replaord 
Loop 
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Case Xdietopt - 11 
riorder - ”NPO” 

Da Replaord 
Loop 

Cose Xdietopt = IB 

dorder - ”NPO p 2400” 

Do Replaord 
Loop 

Case Xdietopt - 13 

florder - ”NPO ui/ Ice Chips” 

Do Replaord 
Loop 

Case Xdietopt - 14 

(larder - ’’Regular Diet” 

Do Replaord 
Loop 

Case Xdietopt - 15 

florder ■ ’’Renal/Liver Disease Diet” 

Do Replaord 
Loop 

Case Xdietopt " 15 

dorder = ”T & A Diet” 

Do Replaord 
Loop 

Case Xdietopt " 17 

dorder " ’’Continuous Tube Feedings” 

Do B:Time 

Da Case 

Case CTimeopt < 5 .Or. Timeopt "411 

* — Less than 1 bag per 54 hours 
Passdata = ”Q27 1” 

Ptpoint ~ 0 

Case CTimeopt > 5 .And. Timeopt < 253 

* — 1 bag per 24 hours 
Passdata - ”Q27 2” 

Ptpoint " 2 

Case CTimeopt > 21 .And. Timeopt < 253 

* — 2 bags per 24 hours 
Passdata " ”Q27 3” 

Ptpoint “ 4 

Case CTimeopt > 24 .And. Timeopt < 313 

* — 3 bags per 24 hours 
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Passdata = ”Q27 4” 

Ptpoint * B 

Case CTimeopt > 30 .And. Timeopt < 343 

* — 4 bags per 24 hours 
Passdata - ”Q27 5” 

Ptpoint - 8 

Case CTimeopt = 34 .Or. Timeopt = 35] 

* — 6 bags per 24 hours 
Passdata = ”Q27 6” 

Ptpoint “ 12 

Case CTimeopt - 36 .Or. Timeopt - 37 3 

* — 12 bags per 24 hours 
Passdata - ”Q27 7” 

Ptpoint - 24 

Case CTimeopt = 38 .Or. Timeopt = 333 

* — 24 bags per 24 hours 
Passdata - ”Q27 8” 

Ptpoint * 48 

Endcase 

Do Replaord 
Loop 

Case Xdietopt = 18 

border * ’’Bolus Tube Feedings” 

Do B:Time 

Do Case 

Case CTimeopt < 34 .Or. Timeopt =413 

* — Less than Q4h or x 6 
Passdata = ”Q27 3” 

Ptpoint = 0 

Case CTimeopt =34 .Or. Timeopt = 353 

* — Q4h or x 6 
Passdata - ”Q27 10” 

Ptpoint “ 5 

Case CTimeopt = 36 .Or. Timeopt = 373 

* — Q2h or x 12 
Passdata = ”Q27 11” 

Ptpoint " 10 

Case CTimeopt - 38 .Or. Timeopt = 333 

* — Qlh or x 24 
Passdata = ”Q27 12” 

Ptpoint = 20 

Endcase 

Do Replaord 
Loop 
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Case Xdietopt “ 19 

* — Doctor’s Order Screen 
Dmenu - ”1” 

Return 

Case Xdietopt * 20 

* — Master Screen 
Dmenu = ” ” 

Return 

Endcase 

Release Xdietopt 
Enddo 
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* 

* 

* 

* 

* 

* 



* 

* 

* 



*** IUA.PRG ********* 
Author : 

Date : 

Screen Generated By : 
Purpose : 

Input Files Used: 
Output Files Used: 
Calling Routine: 
Routine Called: 
fladiFicatian Date: 



Gary R. Harmeyer LCDR NC USN 
B December 1985 
The Software Bottling Company 
Of New York, cl985 
Determine first stage IU needs of 
the patient. 

IUA. Scr and Procfile.Prg 
None 

Doc_Menu . Prg 

IUB. Prg 

4 February 1986 



* — Screen Input Program For IUA — 

* 



Do Setup 

Public Xivaopt , harder 1 



Do While .T. 



* — Screen Display A: IUA.Scr — 

Set Color To U+/B.W+/B 
Clear 

?? Flash+”S. A: IUA.Scr/” 

Set Color To W+/B,W+/B 
Xivaopt ” 09 
Do Headings 
Do Startup 

@ 22,66 Get Xivaopt Piet ”89” Range 0,10 
Read 



* — Evaluate action based on the option selected — 
Do Case 

Case Xivaopt “ 0 
* — Sign-Off 
Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xivaopt = 1 

Morderl - ’’Start IU of” 

Passdata - ”Q30 1” 

Ptpoint - 2 
Todayonly - ”T” 
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Da B: IUB 
Loop 

Case Xivaapt “ 2 

norderl - ’’Alternate IU w/” 

Da B: IUB 

Laap 

Case Xivaapt = 3 

Morderl - ’’Fallow IU w/” 

Do B: IUB 
Loop 

Case Xivaopt - 4 

norderl - ’’Interrupt IU for” 

Do B: IUB 

Loop 

Case Xivaopt - 5 

norderl = ’’Start 2nd IU of” 
Passdata “ ”Q30 1” 

Ptpoint - 2 
Todayanly =■= ”T” 

Do B: IUB 
Loop 

Case Xivaopt ~ 6 

norder ** ’’Discontinue IU” 

Do RBplaord 
Loop 

Case Xivaopt = 7 

norder ” ’’Heparin Lock” 
Passdata - ”073 1” 

Ptpoint “ 4 
Do Replaord 
Loop 

Case Xivaopt “ 8 

norder “ ’’nultilumBn Line” 
Passdata ” ”Q72 3” 

Ptpoint “ 8 
Do Replaord 
Loop 

Case Xivaopt - 9 

* — Doctor’s Order Screen 
Dmenu - ”1” 

Return 
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Case Xivaopt - 10 
* — Master Screen 
Dmenu = ” ” 

Return 

Endcase 

Release Xivaopt 
Enddo 
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**** IUB.PRG ********************************************* 



* Author: 

* Date: 

* Screen Generated By: 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
B December 1985 
The Software Bottling Company 
Of New York, cl98S 
The doctor selects an IU solution 
for the patient. 

IUB.Scr and Pracfile.Prg 

None 

IUA.Prg 

None 

19 February 198B 



* — Screen Input Program For IUB — 



Do Setup 

Public Xivbopt , Blood 
Blood m .F. 



Do While .T. 



* — Screen Display A: IUB.Scr — 

Set Color To W+/B,W+/B 
Clear 

?? Flash+”S.A: IUB.Scr/” 

Set Color To W+/B,U+/B 
Xivbopt “ 1 
Do Headings 

@ 22, 67 Get Xivbopt Piet ”9” Range 1,8 
Read 



* — Evaluate action based on the option selected — 
Do Case 



Case Xivbopt - 1 

border ” Morderl + ” D5/.45 NaCl” 

Do B : IUC 

Return 

Case Xivbopt - 2 

border ~ borderl + ” RL” 

Do B: IUC 
Return 

Case Xivbopt = 3 

border ■ borderl + ” D5RL” 
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DO B: IUC 
Return 

Case Xivbopt - 4 

Morder - borderl + ” D5W” 

Do B: IUC 
Return 

Case Xivbopt " 5 

border - border 1 + ” NS” 

Do B: IUC 
Return 

Case Xivbopt - B 

border - borderl + ” D5NS” 

Do B: IUC 
Return 

Case Xivbopt - 7 

border ■ borderl + ” Whole Bid” 
Blood ” .T. 

Do B: IUC 
Return 

Case Xivbopt - 8 

border =* borderl + ” Packed Cells” 
Blood - .T. 

Do B: IUC 
Return 

Endcase 

Release Xivbopt 
Enddo 
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***** IUC.PRG At******************************************* 



* Author: 

* Dote: 

* Screen Generated By : 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 

* 



Gary R. Harmeyer LCDR NC USN 
8 December 1905 
The Software Bottling Company 
Of New York, cl905 
Determine IU infusion rate for 
patient orders. 

IUC.Scr and Procfile.Prg 

None 

IUB.Prg 

None 

4 February 1986 



m — Screen Input Program For IUC — 

* 



Do Setup 
Public Xivcopt 



Do Uhile .T. 



* — Screen Display A: IUC.Scr — 

Set Color To W+/B , W+/B 
Clear 

?? Flash+”S. A: IUC.Scr/” 

Set Color To U+/B , U-*-/B 
Xivcopt " 6 
Do Headings 

@ 22,67 Get Xivcopt Piet ”9” Range 1,0 
Read 

* — Evaluate action based on the option selected — 
Do Case 



Case Xivcopt ” 1 

Ofreq - ” Infuse o SON” 
If Blood - .T. 

Passdata - ”Q75 1” 
Ptpoint “ Ptpoint + 2 
Else 

Passdata - ”Q72 3” 
Ptpoint “ Ptpoint + 8 
Endif 

Do Replaord 
Return 

Case Xivcopt “ 2 

Ofreq ~ ’’Infuse o lHr” 
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IF Blood - .T. 

Passdata - ”Q75 1” 
Ptpoint “ Ptpoint + 2 
Else 

Passdata ■ ”Q72 3” 
Ptpoint - Ptpoint + B 
EndiF 

Do Replaord 
Return 

Case Xivcopt " 3 

Ofreq * ’’Infuse o 2Hr” 
IF Blood - .T. 

Passdata - ”Q75 1” 
Ptpoint - Ptpoint + 2 
Else 

Passdata ■ ”Q72 3” 
Ptpoint - Ptpoint + 8 
EndiF 

Do Replaord 
Return 

Case Xivcopt - 4 

□freq ■ ’’Infuse o 4Hr” 
IF Blood * .T. 

Passdata - ”D75 1” 
Ptpoint = Ptpoint + 2 
Else 

Passdata = ”Q72 3” 
Ptpoint “ Ptpoint + 8 
EndiF 

Do Replaord 
Return 

Case Xivcopt - 5 

Ofreq - ’’Infuse o 6Hr” 
Passdata - ”Q72 2” 
Ptpoint ” Ptpoint + 6 
Do Replaord 
Return 

Case Xivcopt “ 6 

Ofreq ■ ’’Infuse o 8Hr” 
Passdata - ”Q7 S 2" 
Ptpoint “ Ptpoint + 6 
Do Replaord 
Return 

Case Xivcopt = 7 

Ofreq - ’’Infuse o 12H” 
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Passdata - ”Q7£ 1 
Ptpoint - Ptpoint 
Do Replaord 
Return 

Case Xivcopt “ 8 
Ofreq - ’’Infuse o 
Passdata - ”Q72 1 
Ptpoint - Ptpoint 
Do Replaord 
Return 

Endcase 

Release Xivcopt , Blood 
Enddo 



+ 4 

24H ” 
+ 4 
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*•<•* LAB . PRG *n**n* j *-************ M *< M *-* j **'*' | *'*' | **' | **** M ******'*'*' 1 ***** 



* Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 

* 



Gary R. Harmeyer LCDR NC USN 
8 December 1385 
The Software Bottling Company 
Of New York, clSBS 
Determine laboratory orders of the 
patient . 

Lab.Scr and Procfile.Prg 
Orders . Dbf 
Dac.flenu . Prg 
Time . Prg 
4 February 1386 



* — Screen Input Program For Lab — 

* 



Do Setup 
Public Xlabopt 



Do While .T. 



* — Screen Display A: Lab.Scr — 

Set Color To W+/B.W+/B 
Clear 

?? Flash+”S . A : Lab . Scr/ ” 

Set Color To W+/B,U+/B 
Xlabopt - 32 
Do Headings 
Do Startup 

@ 22,66 Get Xlabopt Piet ”33” Range 0,33 
Read 



* — Evaluate action based on the option selected — 
Do Case 



Case Xlabopt ■ 0 
* — Sign-Off 
Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xlabopt = 1 

Marder = ’’Bilirubin” 
Do B:Time 
Do Labcount 
Do Replaord 
Loop 
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Case Xlabopt =* B 
Horder - ”BUN” 

Da B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt = 3 
Horder “ ’’Calcium” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt = 4 
Horder - ’’Cloride” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt = 5 
Horder - ”C02” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt - 6 

Horder = ’’Creatinine 
Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt “ 7 

Harder = ’’Glucose” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt = 8 

Horder - ’’Phosphate” 
Do B:Time 
Do Labcount 
Do Replaord 
Loop 
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Case Xlabopt ” 9 

Horder “ ’’Potassium” 
Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt - 10 
Morder “ ’’Sodium” 

Do B : TimB 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt = 11 

Harder = ’’Uric Acid” 
Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt =■ 12 
Horder - ’’Amylase” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt = 13 
Horder - ”CPK” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt “ 14 
Horder = ”LDH” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt - 15 
Horder - ”SG0T” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 
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Case Xlabopt *= 16 
Harder - ’*SGPT” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt - 17 
norder - "CBC” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt - 18 
Harder * ’’Platlets” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt = 19 
Horder = ’’Protime” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt = 20 

Harder “ ”Sed Rate” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt = 21 

Horder - ”AB0 S Rh” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt = 22 

Harder - ”ABG CFrom A-lineD” 

Do B:Time 

Do Labcount 

Do Replaord 

Loop 
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Case Xlabopt - 23 

Harder = ”ABG Cstick]” 

Do B:Time 

□a Case 

Case CXtimeapt < 25 .Or. Xtimeopt = 41] 

* — Less than x 3 or TID 
Passdata - ”Q45 1” 

Ptpaint = 0 

Case CXtimeapt > 24 .And. Xtimeopt < 34] 

* — X 3 CTIDD or less than Q4h Cx BD 
Passdata = ”Q45 2” 

Ptpoint - 2 

Case CXtimeapt = 34 .Or. Xtimeopt = 35D 

* — Q4h or x 6 
Passdata = ”Q45 3” 

Ptpaint * 4 

Case CXtimeapt =36 .Or. Xtimeopt = 37] 

* — Q2h or x 12 
Passdata = ”Q45 4” 

Ptpaint = 0 

Case CXtimeapt = 30 .Or. Xtimeopt = 30] 

* — Qlh or x 24 
Passdata = ”Q45 5” 

Ptpaint = 16 

Endcase 

□a Replaord 
Laap 

Case Xlabopt = 24 

Horder = ’’Bid Cultures” 

□a B:Time 

Da Case 

Case CXtimeopt < 25 .Or. Xtimeopt = 41] 

* — Less than x 3 or TID 
Passdata = ”Q46 1” 

Ptpaint = 0 

Case CXtimeapt > 24 .And. Xtimeopt < 34] 

* — X 3 CUD] or less than Q4h Cx 6] 
Passdata = ”Q46 2” 

Ptpoint - 2 

Case CXtimeopt =34 .Dr. Xtimeopt = 35] 

* — Q4h ar x 6 
Passdata = ”Q46 3” 

Ptpoint = 4 

Case CXtimeapt = 36 .Dr. Xtimeopt = 37] 

* — Q2h or x 12 
Passdata = ”Q46 4” 
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Ptpoint - 9 

Case CXtimeopt = 38 .Or. Xtimeopt ” 39D 
* — Qlh or x 24 
Passdata - ”046 5” 

Ptpoint - IB 
Endcose 

Do Replaord 
Loop 

Cose Xlobopt - 25 

Horder - ’’Culture & Sen” 

Do B:Time 
Do Lobcount 
Do Replaord 
Loop 

Case Xlabopt ~ 2B 

llorder “ ’’Cold Agglutins” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt - 27 
Morder - ”HC6” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt - 20 

Horder ■ ”0cc Bid in Stools” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt = 29 
Horder - ”RPR” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt “ 30 
Horder - ”SHA 6” 

Do B:Time 
Do Labcount 
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Do Replaord 
Loop 

Case Xlabopt = 31 
border - ”UA” 

Do B:Time 
Do Labcount 
Do Replaord 
Loop 

Case Xlabopt - 32 

* — Doctor’s Order Screen 
Dmenu - ’ 1 ’ 

Return 

Case Xactopt = 33 

* — Master Screen 

Dmenu ” ’ ’ 

Return 

Endcase 

Release Xlabopt 
Enddo 
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**** LUNG . PRG **<***********»*»*************»*<*■***«»«»**»*«•*** 



* Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

m Modification Date: 



Gary R . Harmeyer LCDR NC USN 
£3 November 1905 
The Software Bottling Company 
OF Neui York, cl9B5 
Menu providing respiratory therapy 
options . 

Lung.Scr and Procfile.Prg 

Orders . Dbf 

Doc_Menu . Prg 

Time . Prg 

SB January 1386 



* — Screen Input Program For Lung — 



Do Setup 

Public Xlungopt , Xliteropt , Xliter 



Do While .T. 



* — Screen Display A: Lung.Scr — 

Set Color To W+/B,W+/B 
Clear 

?? Flash+ ”S . A : Lung . Scr / ” 

Set Color To U)+/B,LI+/B 
Xlungopt “ 14 
Do Headings 
Do Startup 

@ £1,66 Get Xlungopt Piet ”99” Range 0,15 
Read 

* — Evaluate action based on the option selected — 
Do Case 

Case Xlungopt - 0 
* — Sign-Off 
Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xlungopt - 1 

Norder = "Chest Pulmonary Therapy” 

Do B:Time 



Do Case 

Case CTimeopt < ££ .Or. Timeopt ”411 
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* — Less than BID or x 2 
Passdata - ”Q68 1” 

Ptpoint “ 0 

Case CTimeopt > 21 .And. Timeopt < 25] 

* — BID or x 2 
Passdata " ”Q68 2” 

Ptpoint - 2 

Case CTimeopt > 24 .And. Timeopt < 31] 

* -- TID or x 3 
Passdata - ”Q6B 3” 

Ptpoint “ 3 

Case CTimeopt > 30 .And. Timeopt < 34] 

* — QID or x 4 
Passdata ■ ”Q68 4” 

Ptpoint “ 4 

Case CTimeopt - 34 .Or. Timeopt - 35] 

* — Q4h or x 6 
Passdata - ”Q68 5” 

Ptpoint * 6 

Case CTimeopt “ 36 .Or. Timeopt - 37] 

* — Q2h or x 12 
Passdata - ”Q6B 6” 

Ptpoint - 12 

Case CTimeopt =38 .Or. Timeopt - 39] 

* — Qlh or x 24 
Passdata - ”Q6B 7” 

Ptpoint “ 24 

Endcase 

Do Replaord 
Loop 

Case Xlungopt - 2 

Morder - ’’Cough & Deep Breath” 

Do B:Time 
Do Cough 
Do Replaord 
Loop 

Case Xlungopt - 3 

Morder “ ’’Incentive Spirometer” 

Do B:Time 

Do Case 

Case CTimeopt < 31 .Or. Timeopt “41] 

* — Less than Q4h or x 5 
Passdata - ”Q64 1” 

Ptpoint “ 0 

Case CTimeopt - 34 .Or. Timeopt =■ 35] 

* — Q4h or x 6 
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Timeopt “ 373 



Passdata - ”Q64 E” 

Ptpoint “ 2 

Case CTimeopt **36 .Or. 

* — Q2h or x 12 
Passdata - "Q64 3” 

Ptpoint - 4 

Case CTimeopt “ 38 .Or. Timeopt - 393 

* — Qlh or x 24 
Passdata - ”Q64 4” 

Ptpoint - 8 

Endcase 

Do Replaord 
Loop 

Case Xlungopt - 4 
Morder - ”IPPB” 

Da B:Time 

Do Case 

Case CTimeopt < £2 .Or. Timeopt - 413 
m — Less than BID or x 2 
Passdata - ”Q66 1” 

Ptpoint “ 0 

Case CTimeopt > 21 .And. Timeopt < 251 

* — BID or x 2 
Passdata “ ”Q66 2” 

Ptpoint = 2 

Case CTimeopt > 24 .And. Timeopt < 313 
m — TID or x 3 
Passdata - ”Q66 3” 

Ptpoint ■ 3 

Case CTimeopt > 30 .And. Timeopt < 343 

* — QID or x 4 
Passdata - ”Q66 4” 

Ptpoint - 4 

Case CTimeopt - 34 .Or. Timeopt ■ 353 

* — Q4h or x 6 
Passdata - ”Q66 5" 

Ptpoint - 6 

Case CTimeopt ** 36 .Or. Timeopt ” 373 

* — Q2h or x 12 
Passdata - ”Q66 6” 

Ptpoint - 12 

Case CTimeopt - 38 .Or. Timeopt - 383 

* — Qlh or x 24 
Passdata - ”Q66 7” 

Ptpoint - £4 

Endcase 
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Do Replaord 
Loop 

Case Xlungopt * 5 

norder - ’’Suctioning” 

Do BrTime 

Do Cast 

Case CTimeopt < 34 .Or. Timeopt =413 

* — Less than Q4h or x 6 
Passdata - ”QB9 1” 

Ptpoint “ 0 

Case CTimeopt “ 34 .Dr. Timeopt - 353 

* — Q4h or x 6 
Passdata - ”Q69 2” 

Ptpoint = 2 

Case CTimeopt - 36 .Or. Timeopt - 373 

* — Q2h or x 12 
Passdata - ”068 3” 

Ptpoint ” 4 

Case CTimeopt ” 38 .Or. Timeopt - 393 

* — Qlh or x 24 
Passdata - ”068 4” 

Ptpoint “ 8 

Endcase 

Do Replaord 
Loop 

Case Xlungopt • 6 

harder - ’’Trach Care” 

Do B:Time 

Do Case 

Case CTimeopt < 25 .Or. Timeopt - 413 

* — Less than TID or x 3 
Passdata - ”070 1” 

Ptpoint “ 0 

Case CTimeopt > 24 .And. Timeopt < 343 

* — TID Cx 33 or less than Q4h Cx 63 
Passdata - ”070 2” 

Ptpoint - 4 

Case CTimeopt “ 34 .Or. Timeopt - 353 

* — Q4h or x 6 
Passdata - ”070 3” 

Ptpoint - 8 

Case CTimeopt = 36 .Or. Timeopt * 373 

* — Q2h or x 12 
Passdata - ”070 4” 

Ptpoint - 16 
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Case CTimeopt - 38 .Or. Timeopt = 33] 
* -- Qlh or x 24 
Passdata - ”Q70 5” 

Ptpoint • 32 
Endcase 

Oo Replaord 
Loop 

Case Xlungopt " 7 

florder - ’’Uentilator” 

Passdata - ”Q71 1” 

Ptpoint - 10 
Do Replaord 
Loop 

Case Xlungopt " 8 

Morder - ”UJean from Uentilator” 

Do B.-Time 
Do Replaord 
Loop 

Case Xlungopt - 3 
Do Liter 

norder ■ ’’Croup Tent ” + Xliter 
Do B:Time 

Passdata - ”Q67 1” 

Ptpoint “ 8 
Do Replaord 
Loop 

Case Xlungopt - 10 
Do Liter 

Morder =* ’’Mask ” + Xliter 
Do B:Time 

Passdata - ”Q63 1” 

Ptpoint ■ 2 
Do Replaord 
Loop 

Case Xlungopt - 11 
Do Liter 

Morder - ’’Mist Tent ” + Xliter 
Do BrTime 

Passdata - "Q67 2” 

Ptpoint “ 8 
Do Replaord 
Loop 
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12 



Case Xlungopt - 
Do Liter 

florder - ’’Nasal Prongs ” + Xliter 
Do B:Time 

Passdata - ”Q63 1” 

Ptpoint “ 2 
Do Replaord 
Loop 

Case Xlungopt - 13 
Do Liter 

Harder - ’’Oxyhood ” + Xliter 
Do B:Time 

Passdata - ”Q63 2” 

Ptpoint “ 2 
Do Replaord 
Loop 

Case Xlungopt - 14 

* — Doctor’s Order Screen 
Dmenu * ’ 1 ’ 

Return 

Case Xlungopt “ 15 

* — Master Screen 

Dmenu - ’ ’ 

Return 

Endcase 

Release Xlungopt, Xliteropt , Xliter 
Enddo 
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**«• nDNITDR.PRG ***************************************** 



* Author: 

* Date: 

* Screen Generated By: 

* 

* Purpose: 

w 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
8 December 1985 
The Software Bottling Company 
Of New York, cl985 
Determine monitoring orders of the 
patient . 

Monitor. Scr and Procfile.Prg 
Orders .Dbf 
Doc_Menu . Prg 
Time . Prg 
4 February 1986 



* 



* — Screen Input Program For Monitor — 



Do Setup 
Public Xmonopt 

Do While .T. 



* — Screen Display A: Monitor .Scr — 

Set Color To W+/B.U+/B 
Clear 

?? Flash* ”S . A : Monitor . Scr/ ” 

Set Color To U+/B , U+/B 
Xmonopt m 19 
Da Headings 
Do Startup 

0 22,66 Get Xmonopt Piet ”99" Range 0,20 
Read 



* — Evaluate action based on the option selected — 
Do Case 

Case Xmonopt ■ 0 
* — Sign-Off 
Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xmonopt “ 1 

Morder ” ’’Apnea Monitor” 

Passdata - ”Q83 1” 

Monpoint - 6 
Do Replaord 
Loop 



224 



Case Xmonopt - 2 

Florder - "A-line Set-up” 

Passdata “ ”Q16 1” 

Ptpoint ” 4 
Todayonly - ”T” 

Da Replaard 
Loop 

Case Xmonopt - 3 

Morder - ”A-line Readings" 

Do B:Time 

Do Case 

Case CTimeopt < 36 .Or. Timeopt - 41 D 

* — Less than Q2h or x 12 
Passdata - "Q1S 1” 

Ptpoint “ 0 

Case CTimeopt ”36 .Or. Timeopt ” 37D 

* — Q2h or x 12 
Passdata - "Q19 2" 

Ptpoint ” 2 

Case CTimeopt ” 38 .Dr. Timeopt ” 39D 

* — Qlh or x 24 
Passdata ■ ”Q19 3” 

Ptpoint - 4 

Endcase 

Do Replaord 
Loop 

Case Xmonopt ■ 4 

florder ” "Cardiac Monitor” 

Passdata - "Q82 1” 
flonpoint ” 6 
Do Replaord 
Loop 

Case Xmonopt ” 5 

llorder ” "Cardiac Output” 

Do B.-Time 

Do Case 

Case CTimeopt < 25 .Or. Timeopt “ 41D 

* — Less than TID or x 3 
Passdata ” "Q22 1” 

Ptpoint - 0 

Case CTimeopt > 24 .And. Timeopt < 34D 

* — TID Cx 3D and less than Q4h Cx 6D 
Passdata - "Q22 2" 
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Ptpoint • 2 

Case CTimeopt - 34 .Dr. Timeopt 

* — Q4h or x B 
Passdata - ”Q22 3” 

Ptpoint - 4 

Case CTimeopt ™ 36 .Or. Timeopt 

* — Q2h or x 12 
Passdata - ”Q22 4” 

Ptpoint “ 8 

Case CTimeopt “38 .Or. Timeopt 

* — Qlh or x 24 
Passdata - ”Q22 5” 

Ptpoint =* 16 

Endcase 
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37 1 



391 



Do Replaord 
Loop 

Case Xmonopt ” 6 

border = ’’Circulation Checks” 

Do B:Time 

Do Case 

Case CTimeopt < 36 .Or. Timeopt * 411 

* — Less than Q2h or x 12 
Passdata - ”Q10 1” 

Ptpoint “ 0 

Case CTimeopt - 36 .Or. Timeopt = 371 

* -- Q2h or x 12 
Passdata - ”Q10 2” 

Ptpoint “ 2 

Case CTimeopt - 38 .Or. Timeopt - 381 

* — Qlh or x 24 
Passdata - ”Q10 3” 

Ptpoint - 4 

Endcase 

Do Replaord 
Loop 

Case Xmonopt = 7 

border “ ”CUP Readings Cbanuallyl” 

Do B:Time 

Do Case 

Case CTimeopt < 36 .Or. Timeopt - 411 

* — Less than Q2h or x 12 
Passdata - ”Q12 1” 

Ptpoint ” 0 

Case CTimeopt - 36 .Dr. Timeopt “ 371 
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* — Q2h or x 12 
Passdata - ”Q12 2” 

Ptpoint - 2 

Case CTimeopt = 30 .Or. Timeopt = 393 

* — Qlh or x 21 
Passdata - ”Q12 3” 

Ptpoint “ 4 

Endcase 

Oo Replaord 
Loop 

Case Xmonopt ” 0 

riorder ” ’’Fundus Checks” 

Do BrTime 

Do Case 

Case CTimeopt < 36 .Or. Timeopt = 413 

* — Less than Q2h or x 12 
Passdata = ”Q14 1” 

Ptpoint =* 0 

Case CTimeopt - 3B .Or. Timeopt = 37] 

* — Q2h or x 12 
Passdata - ”Q14 2” 

Ptpoint - 2 

Case CTimeopt " 30 .Or. Timeopt ” 393 

* — Qlh or x 24 
Passdata - ”Q14 3” 

Ptpoint - 4 

Endcase 

Do Replaord 
Loop 

Case Xmonopt “ 9 

border - "Intake & Output” 

Do B.-Time 

Do Case 

Case CTimeopt < 25 .Or. Timeopt =413 

* — Less than Q0h or x 3 
Passdata - ”Q9 1” 

Ptpoint “ 0 

Case CTimeopt > 24 .And. Timeopt < 343 

* — QBh Cx 33 and less than Q4h Cx 63 
Passdata - ”Q9 2” 

Ptpoint - 2 

Case CTimeopt = 34 .Or. Timeopt = 353 

* — Q4h or x 6 
Passdata - ”Q9 3” 
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.Or. Timeopt ” 371 



Ptpoint ■ 4 
Case CTimeopt - 36 

* -- Q2h or x 12 
Passdata - ”Q3 4” 

Ptpoint - 8 

Case CTimeopt ”38 .Or. Timeopt - 331 

* — Qlh or x 24 
Passdata = ”Q3 5” 

Ptpoint “ 16 

Endcase 

Do Replaord 
Loop 

Case Xmonopt = 10 

florder - ”ICP [Monitor] Set-Up” 

Passdata ” ”Q2 8” 

Ptpoint ” 4 
Todayonly = ”T” 

Do Replaord 
Loop 

Case Xmonopt = 11 

tlorder “ ’’Manual ICP Readings” 

Do B:Time 

Do Case 

Case CTimeopt < 36 .Or. Timeopt = 411 

* — Less than Q2h or x 12 
Passdata = ”Q13 1” 

Ptpoint ” 0 

Case CTimeopt = 36 ,0r. Timeopt = 371 

* -- Q2h or x 12 
Passdata - ”Q13 2” 

Ptpoint - 2 

Case CTimeopt “ 38 .Or. Timeopt = 331 

* — Qlh or x 24 
Passdata - ”Q13 3” 

Ptpoint “ 4 

Endcase 

Do Replaord 
Loop 

Case Xmonopt = 12 

Morder “ ’’Monitor ICP Readings” 

Do BrTime 

Do Case 

Case CTimeopt < 36 .Or. Timeopt ” 411 
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* — Less than Q2h or x 12 
Passdata - ”Q20 1” 

Ptpoint =* 0 

Case CTimeopt = 36 .Or. Timeopt = 37] 

* — Q2h or x 12 
Passdata - ”Q20 2” 

Ptpoint - 2 

Case CTimeopt ■ 38 .Or. Timeopt - 39] 

* — Qlh or x 24 
Passdata - ”Q20 3” 

Ptpoint ” 4 

Endcase 

Do Replaord 
Loop 

Case Xmonopt “ 13 

norder - "Neuro Checks” 

Do B:Time 

Do Case 

Case CTimeopt < 34 .Or. Timeopt = 41] 
m — Less than Q4h or x 6 
Passdata - ”Q11 1” 

Ptpoint ” 0 

Case CTimeopt “ 34 .Or. Timeopt = 35] 

* — Q4h or x 6 
Passdata - ”Q11 2” 

Ptpoint - 3 

Case CTimeopt * 36 .Or. Timeopt = 37] 

* — Q2h or x 12 
Passdata - ”Q11 3” 

Ptpoint “ 6 

Case CTimeopt ” 38 .Or. Timeopt = 38] 

* — Qlh or x 24 
Passdata - ”Q11 4” 

Ptpoint - 12 

Endcase 

Do Replaord 
Loop 

Case Xmonopt - 14 

rtorder ” ’’Pressure Monitor” 

Passdata - ”Q85 1” 

Monpoint “ 6 
Do Replaord 
Loop 
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Case Xmonapt = 15 

riorder “ ’’PAP/PA Wedge CReadings3” 

Do B:Time 

Do Case 

Case CTimeapt < 34 .Or. Timeapt "413 

* — Less than Q4h or x 6 
Passdata - ”□21 1” 

Ptpoint - 0 

Case CTimeopt - 34 .Or. Timeapt - 353 

* — Q4h or x 5 
Passdata = ”Q21 2” 

Ptpoint = 2 

Case CTimeapt “ 35 .Or. Timeapt - 373 

* — Q2h or x 12 
Passdata - ”Q21 3” 

Ptpoint - 4 

Case CTimeopt ” 35 .Or. Timeapt " 333 

* — Qlh or x 24 
Passdata = "Q21 4” 

Ptpoint - 8 

Endcase 

Do Replaard 
Loop 

Case Xmonopt = 16 

Morder “ ”Sujan-Ganz Set-up” 

Passdata - "Q18 1” 

Ptpoint “ 4 
Todayonly = ”T” 

Da Replaord 
Loop 

Case Xmonopt “ 17 

Morder = ’’Temperature Monitor” 

Passdata - ”Q84 1” 

Monpoint “ 6 
Do Replaord 
Loop 

Case Xmonopt " 18 

Morder - ’’Transcutaneous Monitor” 
Passdata - "Q15 1" 

Ptpoint " 5 
Da Replaord 
Loop 

Case Xmonopt - 19 

* — Doctor’s Qrder Screen 



230 



Dmenu * ’ 1 ’ 
Return 

Case Xmonopt 
* — Master 
□menu “ ’ ’ 

Return 

Endcase 

Release Xmonopt 
Enddo 



20 

Screen 
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t*** PHAM1 . PRG ******* 
1 Author: 

1 Date: 

* Screen Generated By: 

fr 

* Purpose: 



Input Files Used: 
Output Files Used: 
Calling Routine: 
Routine Called: 
Modification Date: 



*l***ft»»*********«***»tt*n*(**l|t*«» 

Gary R. Harmeyer LCDR NC USN 
29 November 1985 
The Software Bottling Company 
□f New York, cl985 
One of two program modules used to 
determine phamacy orders of the 
patient . 

Monitor. Scr and Procfile.Prg 
Orders . Dbf 
Doc_Menu . Prg 

Time, Pham2 and Phamhelp.Prg 
4 February 1986 



* 

* 



— Screen Input Program For Phaml — 



Do Setup 

Public Xphamlopt 



Do While 



* — Screen Display A: Phaml. Scr — 

Set Color To W+/B.W+/B 
Clear 

?? Flash+”S.A: Phaml .Scr/” 

Set Color To W+/B.W+/B 
Xphamlopt " 26 
Do Headings 
Do Startup 

@ 22,66 Get Xphamlopt Piet ”99” Range 1,27 
Read 



* — Evaluate action based on the option selected — 
Do Case 

Case Xphamlopt “ 1 

Morder ” ’’Benadryl 25mg C01” 

Do B:Time 
Do Regmeds 
Do Replaord 
Loop 

Case Xphamlopt • 2 

Morder ” ’’Benadryl SOmg CIMD” 

Do B:Time 
Do Regmeds 
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Da Replaord 
Loop 

Case Xphamlapt = 3 

Morder - ’’Benadryl 50mg CIU3” 

Do B:Time 
Do IUmeds 
Do Replaord 
Loop 

Case Xphamlapt ” 4 

Morder - ’’Dimetapp 4mg COD” 

Do B:Time 
Do Regmeds 
Do Replaord 
Loop 

Case Xphamlapt * 5 

Morder “ ’’Dimetapp Elix 5mg COD” 

Do B:Time 

Do Regmeds 

Do Replaord 

Loop 

Case Xphamlapt - 6 

Morder ■ ’’Phenergan 25mg COD” 

Do B:Time 
Do Regmeds 
Do Replaord 
Loop 

Case Xphamlapt - 7 

Morder ” ’’Phenergan 25mg CIM3” 

Do B:Time 
Do Regmeds 
Do Replaord 
Loop 

Case Xphamlopt “ B 

Morder “ ’’Phenergan 25mg CSPD” 

Do B:Time 
Do Regmeds 
Do Replaord 
Loop 

Case Xphamlapt - 9 

Morder - ’’Ampicillin 250mg COD" 
Do B:Time 
Do Regmeds 
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Do Replaord 
Loop 

Case Xphamlopt " 10 

Morder “ ’’Ampicillin 500mg CIM1” 

Do B:Time 

Do Regmeds 

Do Replaord 

Loop 

Case Xphamlopt - 11 

Morder “ ’’Ampicillin SOOmg CIUD” 

Do B:Time 

Do IUmeds 

Do Replaord 

Loop 

Case Xphamlopt “ 12 

Morder ■ ’’Ancef . 5Gm CIMD” 

Do B:Time 
Do Regmeds 
Do Replaord 
Loop 

Case Xphamlopt “ 13 

Morder - "Ancef .5Gm CIUD” 

Do B:Time 
Do IUmeds 
Do Replaord 
Loop 

Case Xphamlopt - 14 

Morder - ’’Cefadyl SOOmg CIMD” 

Do B:Time 
Do Regmeds 
Do Replaord 
Loop 

Case Xphamlopt - 15 

Morder “ ’’Cefadyl 1 . OGm CIM1” 

Do B:Time 
Do Regmeds 
Do Replaord 
Loop 

Case Xphamlopt “ 16 

Morder - ’’Cefadyl 1 . OGm CIUD” 

Do B:Time 
Do IUmeds 
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Do Replaord 
Loop 

Case Xphamlopt - 17 

Horder “ ’’Erythromycin 250mg COD” 

Do BrTime 
Do Regmeds 
Do Replaord 
Loop 

Case Xphamlopt - 18 

Harder m ’’Erythromycin Susp 200mg COD” 

Do BrTime 

Do Regmeds 

Do Replaord 

Loop 

Case Xphamlopt = 18 

Harder - ’’Keflex 250mg COD” 

Do B:Time 
Do Regmeds 
Da Replaord 
Loop 

Case Xphamlopt - 20 

Harder - ’’Keflex Susp 125mg COD” 

Da B:Time 
Do Regmeds 
Da Replaord 
Loop 

Case Xphamlopt ■ 21 

Horder - ’’Sulfacetamine 10^ Solt COpD” 

Do BrTime 

Da Regmeds 

Do Replaord 

Loop 

Case Xphamlopt - 22 

Harder - ’’Tetracycline 250mg COD” 

Da BrTime 
Do Regmeds 
Da Replaord 
Loop 

Case Xphamlopt - 23 

Harder “ ’’Tetracycline SOOmg C I U D ” 

Do BrTime 
Do IUmeds 
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Do Replaord 
Loop 

Case Xphamlopt - 24 

* — Help 

Da BrPhamhelp 
Loop 

Case Xphamlopt - 25 

* — Next Screen Criare Neds! 
Da B : Pham2 

Loop 

Case Xphamlopt ” 25 

* — Dr’s Order Screen 
Dmenu ” ’ 1 ’ 

Return 

Case Xphamlopt - 27 

* — Master Screen 

Dmenu = ’ ’ 

Return 

Endcase 

Release Xphamlopt 
Enddo 
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**** PHAHB . PRG **»**-***»****** 4,M ***** , ' , **'*'*'»******* l ' , ****-»*** 



* Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

* 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Hodif icatian Date: 

* 



Gary R . Harmeyer LCDR NC USN 
E9 Nov 1905 

The Software Bottling Company 
Of New York, cl905 
One of two program modules to 

determine pharmacy orders of the 
patient . 

PhamE.Scr and Procfile.Prg 
Orders . Dbf 
Phaml . Prg 
Time . Prg 
4 February 1986 



* — Screen Input Program For PhamB — 



Do Setup 

Public XphamBopt 



Do While .T. 



* — Screen Display A:PhamB.Scr — 

Set Color To W+/B.W+/B 
Clear 

?? Flash+”S . A: PhamB . Scr/ ” 

Set Color To W+/B.U+/B 
XphamBopt = B4 
Do Headings 
Do Startup 

@ BB,66 Get XphamBopt Piet ”99” Range 1 , B4 
Read 



* — Evaluate action based on the option selected — 
Do Case 

Case XphamBopt - 1 

Harder - ’’Boric Acid 5* Solt Cl 3” 

Do B:Time 

Do Case 

* — Expert system data 
Case CTimeopt < 6 .Or. Timeopt “ 413 
Passdata - ”040 5” 

Ptpoint “ 0 

Case CTimeopt > 5 .And. Timeopt < 343 
Passdata = ”Q48 1” 

Ptpoint ■ B 
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Case CTimeopt - 34 .Or. Timeopt - 353 
Passdata - ”Q4B 2” 

Ptpoint - 3 

Case CTimeopt - 35 .Or. Timeopt - 373 
Passdata - ”048 3” 

Ptpoint " 5 

Case CTimeopt " 38 .Or. Timeopt - 383 
Passdata - ”Q48 4” 

Ptpoint ■ 12 
Endcase 

Do Replaord 
Loop 

Case Xpham2opt = 2 

florder - ’’Atropine 0.4mg C03” 

Do B:Time 
Do Regmeds 
Do Replaord 
Loop 

Case Xpham2opt “ 3 

Morder " ’’Atropine 0.4mg CIM3” 

Do B:Time 
Do Regmeds 
Da Replaord 
Loop 

Case Xpham2opt “ 4 

florder - ’’Ualium 5mg C03” 

Do B:Time 
Do Regmeds 
Do Replaord 
Loop 

Case Xpham2opt " 5 

riorder - ’’Ualium 5mg CIM3” 

Do B:Time 
Do Regmeds 
Do Replaord 
Loop 

Case Xpham2apt - 5 

florder " ’’Ualium 5mg CIU3” 

Do B:Time 
Do IUmeds 
Do Replaord 
Loop 
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Case Xpham2opt “ 7 

Harder - ’’Digaxin . 125mg COD” 

Da B:Time 

Da Regmeds 

Da Replaord 

Loop 

Case Xpham2opt “ 8 

Harder “ ’’Digaxin .250mg COD” 

Da B:Time 

Do Regmeds 

Do Replaord 

Loop 

Case Xpham2opt = 9 

Horder “ ’’Inderal lOmg COD” 

Da B:Time 
Da Regmeds 
Da Replaord 
Loop 

Case Xpham2opt ■ 10 

Harder ■ ’’Inderal HOrng C03” 

Do B:Time 
Da Regmeds 
Do Replaord 
Loop 

Case Xpham2apt - 11 

Harder ~ ’’Inderal lmg CIUD” 

Do B:Time 
Da IUmeds 
Do Replaord 
Loop 

Case Xpham2opt - 12 

Harder ** ’’Hinipres lmg COD” 

Do D:Time 
Do Regmeds 
Do Replaord 
Loop 

Case Xpham2opt - 13 

Harder ” ’’Hinipres 2mg COD” 

Do B:Time 
Da Regmeds 
Da Replaord 
Loop 
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Case Xpham2apt “ 14 

Harder - ’’Hinipres 5mg C03” 

Da B:Time 
Da Regmeds 
Da Replaard 
Loop 

Case Xpham2opt “ 15 

Harder - ’’Dilantin lOOmg CQ1” 

Da B:Time 
Da Regmeds 
Da Replaard 
Loop 

Case Xpham2opt ” 16 

Harder - ’’Dilantin Supp 125mg COD” 

Da B:Time 

Da Regmeds 

Da Replaard 

Laap 

Case Xpham2opt - 17 

Harder - ’’Elavil lOmg CD!” 

Da B:Time 
Da Regmeds 
Da Replaard 
Laap 

Case Xpham2opt - 18 

Harder - ’’Elavil 25mg COl” 

Da B:Time 
Da Regmeds 
Da Replaard 
Laap 

Case Xpham2opt - 13 

Harder ” ’’Elavil 50mg COD” 

Da B:Time 
Da Regmeds 
Da Replaard 
Laap 

Case Xpham2opt - 20 

Harder - ’’Phenobarbital 15mg COD” 

Da B:Time 

Da Regmeds 

Da Replaard 

Loop 
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Case Xpham2opt = El 

Harder - ’’Phenobarbi tal 30mg COD" 

Do B:Time 

Da Regmeds 

Da Replaord 

Loop 

Case XphamEapt - 22 

Harder - ’’Phenobarbi tal 60mg CIHl’’ 

Da B:Time 

Do Regmeds 

Da Replaord 

Loop 

Case Xpham2opt • 23 

* — Help 

Da B:Phamhelp 
Loop 

Case Xpham2apt - 24 

* — Previous Screen 
Return 

Endcase 

Release XphamEapt 
Enddo 



241 



mmmm PHAMHELP . PRG ****tt««**««*««************«*««««»****** 



m Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
29 November 19B5 
The Software Battling Company 
Of New York, cl985 
Brief an-line help facility far the 
Phaml and Pham2 . Prg . 

Phamhelp.Scr and Procfile.Prg 
None 

Phaml or Pham2.Prg 
None 

26 January 1986 



* — Screen Input Program Far Phamhelp — 



Do Setup 



Do While .T. 



* — Screen Display A: Phamhelp . Scr — 

Set Color To W+/B,W+/B 
Clear 

?? Flash+ ”S . A : Phamhelp . Scr/ ” 

@24,0 

@ 24,37 Say ’’Press Any Key To Continue 

Set Console Off 

Wait 

Set Console On 
Return 



Enddo 
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««** ROUTINE. PRG **»**<►«***»*********«•******************** 



* Author: 

* Date: 

* Screen Generated By: 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 

* 



Gary R. Harmeyer LCDR NC USN 
29 November 1965 
The Software Bottling Company 
Of New York, cl9B5 
Determine the ward routine orders 
of the patient. 

Routine. Scr and Procfile.Prg 
Orders . Dbf 
Doc_Menu . Prg 
Time . Prg 

19 February 1906 



* — Screen Input Program For Routine — 



Do Setup 
Public Xrouopt 



Do While .T. 



* — Screen Display A : Routine . Scr — 

Set Color To U+/B,W+/B 
Clear 

?? Flash+ ”S . A : Routine . Scr/ ” 

Set Color To UI+/B , UI+/B 
Xrouopt * 30 
Do Headings 
Do Startup 

@ 22,66 Get Xrouopt Piet ”99” Range 0,31 
Read 



* — Evaluate action based on the option selected — 
Do Case 

Case Xrouopt - 0 
* -- Sign-Off 
Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xrouopt - 1 

Morder “ ”Ace Wrap Lower Ext” 

Passdata - ”Q36 1” 

Ptpoint - 2 
Do Replaord 
Loop 
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Case Xrouopt - 2 

florder - ’’Chest Tube Insertion” 

Passdata - ”Q57 1” 

Ptpoint “ 4 
Todayanly - ”T” 

Do Reploord 
Loop 

Case Xrouopt “ 3 

florder ** "Circumcision Care” 

Do B:Time 

Passdata - ”052 1” 

Ptpoint - E 
Do Replaord 
Loop 

Case Xrouopt = 4 

florder = "Complex Dressing Change” 

Do BrTime 

Do Case 

Case CTimeopt < 6 .Or. Timeopt = 413 

* — Less than one dressing 
Passdata - ”Q37 1” 

Ptpoint - 0 

Case CTimeopt > 5 .And. Timeopt < 223 

* — One dressing change 
Passdata - ”Q37 8” 

Ptpoint - 4 

Case CTimeopt > 21 .And. Timeopt < 253 
m — Two dressing changes 
Passdata - ”Q37 9” 

Ptpoint “ B 

Case CTimeopt > 24 .And. Timeopt < 313 

* — Three dressing changes 
Passdata - ”Q37 10” 

Ptpoint “ 12 

Case CTimeopt > 30 .And. Timeopt < 343 

* -- Four dressing changes 
Passdata » "Q37 11” 

Ptpoint * 16 

Case CTimeopt - 34 .Or. Timeopt = 353 

* — Six dressing changes 
Passdata - ”Q37 12” 

Ptpoint - 24 

Case CTimeopt “ 36 .Or. Timeopt = 373 

* — Twelve dressing changes 
Passdata = ”Q37 13” 

Ptpoint - 48 
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Case CTimeopt = 38 .Or. Timeopt ■ 391 

* — Twenty-four dressing changes 
Passdata = ”Q37 14” 

Ptpoint ” 96 
Endcase 

Do Replaord 
Loop 

Case Xrouopt “ 5 

Horder ” ”EKG Rhythm Strip” 

Passdata - ”Q33 1” 

Ptpoint = 8 
Todayonly “ ”T” 

Do Replaord 
Loop 

Case Xrouopt - 6 

Horder “ ’’Foley Cath Care” 

Do B:Time 

Do Case 

Case CTimeopt < 22 .Or. Timeopt - 411 

* — Tube care less than x 2 
Passdata - ”Q39 1” 

Ptpoint " 0 

Case CTimeopt > 21 .And. Timeopt < 251 

* — Tube care x 2 
Passdata - ”Q39 2” 

Ptpoint ” 2 

Case CTimeopt > 24 .And. Timeopt < 311 

* — Tube care x 3 
Passdata ■ ”Q39 3” 

Ptpoint - 3 

Case CTimeopt > 30 .And. Timeopt < 341 

* — Tube care x 4 
Passdata - ”Q39 4” 

Ptpoint - 4 

Case CTimeopt - 34 .Or. Timeopt - 351 

* — Tube care x 6 
Passdata - ”039 5" 

Ptpoint - 6 

Case CTimeopt = 36 .Or. Timeopt = 371 

* — Tube care x 12 
Passdata - ”Q39 6” 

Ptpoint “ 12 

Case CTimeopt = 38 .Or. Timeopt = 391 

* — Tube care x 24 
Passdata - ”Q39 7” 
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Ptpoint * 24 
Endcase 

Da Replaard 
Loop 

Case Xrauapt * 7 

(larder = ’’Foley Cath Insertion” 
Passdata - ”Q32 1” 

Ptpoint “ 2 
Todayonly - ”T” 

Da Replaord 
Loop 

Case Xrouopt =■ 8 

dorder - ’’Guiac Stools” 

Da B:Time 
Do Routine 
Da Replaard 
Loop 

Case Xrouopt = 3 

dorder = ’’Respiratory Isolation 
Passdata = ”Q54 2” 

Ptpoint = 2 
Da Replaord 
Loop 

Case Xrouopt - 10 

dorder - ’’Reverse Isolation” 
Passdata - ”Q54 2” 

Ptpoint = 2 
Da Replaard 
Loop 

Case Xrouopt = 11 

dorder = ’’Strict Isolation” 
Passdata - ”Q54 2” 

Ptpoint = 2 
Da Replaard 
Loop 

Case Xrouopt “ 12 

dorder • ’’Lumbar Puncture” 
Passdata - ”Q58 1” 

Ptpoint = 4 
Todayonly ” ”T” 

Do Replaard 
Loop 
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Case Xrouopt m 13 

norder ■ ”N-G Insertion” 

Passdata = ”Q31 1” 

Ptpoint - 2 
Todayonly = ”T” 

Do Replaord 
Loop 

Case Xrouopt - 14 

norder - ’’Parencentesis ” 

Passdata - ”Q60 1” 

Ptpoint - 4 
Todayonly = ”T” 

Do Replaord 
Loop 

Case Xrouopt “ 15 

Horder = ’’Phototherapy” 

Passdata - ”053 1” 

Ptpoint = 2 
Do Replaord 
Loop 

Case Xrouopt - 16 

Horder - ”R0n Exercises CPassivel” 

Do B:Time 

Do Range 

Do Replaord 

Loop 

Case Xrouopt ” 17 

norder “ ”2-Point Restaints” 
Passdata - ”Q50 1” 

Ptpoint * 2 
Do Replaord 
Loop 

Case Xrouopt - 10 

norder “ ”4-Point Restraints” 
Passdata - ”Q50 2” 

Ptpoint “ 2 
Do Replaord 
Loop 

Case Xrouopt - 19 

norder “ ’’Posey Restraint” 

Passdata - ”Q50 3” 

Ptpoint “ 2 
Do Replaord 
Loop 
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Case Xrouopt - 20 

harder - ’’Simple Dressing Change” 

Do B:Time 

Do Case 

Case CTimeopt < 22 .Dr. Timeopt “ 411 

* — Less than x 2 
Passdata - ”Q37 1” 

Ptpoint - 0 

Case CTimeopt > 21 .And. Timeopt < 251 

* — X 2 or BID 
Passdata - ”Q37 2” 

Ptpoint “ 2 

Case CTimeopt > 24 .And. Timeopt < 311 

* — X 3 or TID 
Passdata * ”Q37 3” 

Ptpoint - 3 

Case CTimeopt > 30 .And. Timeopt < 341 

* — X 4 or QID 
Passdata = ”Q37 4” 

Ptpoint “ 4 

Case CTimeopt ” 34 .Dr. Timeopt * 351 

* — X B or Q6h 
Passdata - ”Q37 5” 

Ptpoint * 6 

Case CTimeopt = 36 .Or. Timeopt m 371 

* — X 12 or Q2h 
Passdata - ”Q37 6” 

Ptpoint " 12 

Case CTimeopt = 38 .Or. Timeopt - 391 

* — X 24 or Qlh 
Passdata - ”Q37 7” 

Ptpoint - 24 

Endcase 

Do Replaord 
Loop 

Case Xrouopt = 21 

border ” ’’Spec Gravity” 

Do B:Time 
Do Routine 
Do Replaord 
Loop 

Case Xrouopt ** 22 
border “ ’’Spin HCT” 

Do B:Time 
Do Routine 
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Do Replaord 
Loop 

Case Xrouopt - 23 

norder - ’’Straight Cath” 

Do B:Time 

Do Cose 

Case CTimeopt < 31 .Or. Timeopt - 41 D 

* -- Less than x 4 
Passdata - ”Q32 2” 

Ptpoint - 0 

Cose CTimeopt > 30 .And. Timeopt < 41D 

* — X 4 or more 
Possdata = ”Q32 3” 

Ptpoint " 4 

Endcase 

Do Replaord 
Loop 

Case Xrouopt = 24 

florder = ’’Surgical Shave Prep” 

Passdata - ”Q34 1” 

Ptpoint - 2 
Todayonly = ”T” 

Do Replaord 
Loop 

Case Xrouopt - 25 
border * ”SS Enema” 

Passdata - ”Q35 1” 

Ptpoint ” 2 
Todayonly - "T” 

Do Replaord 
Loop 

Case Xrouopt * 26 

norder * ’’Tap Water Enema” 

Passdata - ”Q35 1” 

Ptpoint “ 2 
Todayonly - ”T” 

Do Replaord 
Loop 

Case Xrouopt “ 27 

norder - ’’Thoracentesis” 

Passdata = ”Q59 1” 

Ptpoint - 4 
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Todayonly - ”T” 

Do Replaord 
Loop 

Case Xrouopt ■ 2B 

harder = ’’Tube Care Cnot trachl” 

Da B:Time 

Do Case 

Case CTimeapt < 22 .Or. Timeapt - 41] 

* — Tube care less than x 2 
Passdata = ”Q3B 1” 

Ptpoint “ 0 

Case CTimeapt > 21 .And. Timeapt < 25D 

* — Tube care x 2 
Passdata - ”Q38 2” 

Ptpoint ~ 2 

Case CTimeapt > 24 .And. Timeapt < 313 

* — Tube care x 3 
Passdata - ”Q3B 3” 

Ptpoint = 3 

Case CTimeapt > 30 .And. Timeapt < 343 

* — Tube care x 4 
Passdata - ”Q3B 4” 

Ptpoint - 4 

Case CTimeapt = 34 .Or. Timeapt = 353 

* — Tube care x B 
Passdata = ”Q3B 5” 

Ptpoint - 6 

Case CTimeapt - 3B .Or. Timeapt “ 373 

* — Tube care x 12 
Passdata - ”Q3B 6” 

Ptpoint - 12 

Case CTimeapt “ 3B .Or. Timeapt * 333 

* — Tube care x 24 
Passdata - ”Q3B 7” 

Ptpoint ■ 24 

Endcase 

Da Replaord 
Loop 

Case Xrauapt “ 23 

harder ■ ”S & A of Urine” 

Da B.-Time 
Da Routine 
Do Replaord 
Loop 
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Case Xrouopt = 30 

* — Doctor’s Order Screen 
Dmenu * ’ 1 ’ 

Return 

Case Xrouopt = 31 

* — Master Screen 

Dmenu - ’ ’ 

Return 

Endcase 

Release Xrouopt 
Enddo 
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mmmm ijg # PRG ********** , ****»******* , *« , ******«n»*****'»«******* 



* Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

m 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 

* 



Gary R. Harmeyer LCDR NC USN 
29 November 1985 
The Software Bottling Company 
Of New York, cl985 
Determine the vital sign orders of 
the patient. 

US.Scr and Procfile.Prg 
Orders . Dbf 
Dac_Menu . Prg 
Time . Prg 
4 February 1986 



* — Screen Input Program For US — 



Do Setup 
Public Xvsopt 

Do While .T. 



* — Screen Display A: US.Scr — 

Set Color To W+/B.W+/B 
Clear 

?? Flash* ”S . A : US . Scr/ ” 

Set Color To W+/B,W+/B 
Xvsopt = 12 
Do Headings 
Do Startup 

@ 22,66 Get Xvsopt Piet ”99” Range 0,13 
Read 



* — Evaluate action based on the option selected — 
Do Case 

Case Xvsopt “ 0 
* — Sign-Off 
Close Database 
Close Procedure 
Release All 
Return To Master 

Case Xvsopt “ 1 

Morder - "T-P-R, B/P” 

Da B:Time 

Do Case 

Case Timeopt < 34 
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* — QID or less 
Passdata - ”Q1 1” 

Ptpoint “ 1 

Case CTimeopt ” 34 .Or. Timeopt - 353 

* — Q4h or x 6 
Passdate - "Q1 2” 

Ptpoint = 2 

Case CTimeopt “ 36 .Or. Timeopt ” 373 

* — Q2h or x 12 
Passdate - ”Q1 3” 

Ptpoint - 4 

Case CTimeopt - 38 .Dr. Timeopt - 393 

* — Qlh or x 24 
Passdate - ”Q1 4” 

Ptpoint “ 0 

Case Timeopt - 41 

* — No frequency indicated 
Passdate = ”Q1 5” 

Ptpoint - 0 

Endcase 

Do Replaord 
Loop 

Case Xvsopt - 2 

Norder - ”Post-op” 

Passdata = ”Q0 1” 

Ptpoint = 6 
Todayonly = ”T” 

Do Replaord 
Loop 

Case Xvsopt - 3 

Norder “ ’’Post Partum” 

Passdata - ”Q8 2” 

Ptpoint *= B 
Todayonly - ”T” 

Do Replaord 
Loop 

Case Xvsopt - 4 

Norder - ’’Post Newborn” 

Passdata = ”Q8 3” 

Ptpoint - 6 
Todayonly = ”T” 

Do Replaord 
Loop 
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Case Xvsopt ” 5 
Morder - ”FHT” 

Do B:Time 

If CTimeopt < 34 .Or. Timeopt * 411 

* — Less than Q4h 
Passdata - ”Q6 1” 

Ptpoint - 0 

Else 

* — Q4h or mare 
Passdata “ ”Q6 2” 

Ptpoint = 2 

Endif 

Do Replaord 
Loop 

Case Xvsopt “ B 

Morder - ’’Apical Pulse” 

Do BrTime 

If CTimeopt < 31 .Or. Timeopt = 411 

* — Less than QID 
Passdata - ”Q3 1” 

Ptpoint - 0 

Else 

* — QID or more 
Passdata - ”Q3 2” 

Ptpoint - 2 

Endif 

Do Replaord 
Loop 

Case Xvsopt “ 7 

Morder - ’’Femoral Pulse” 

Do B:Time 

If CTimeopt < 34 .Or. Timeopt = 411 

* — Less than Q4h 
Passdata - ”Q4 1” 

Ptpoint “ 0 

Else 

* — Q4h or more 
Passdata - ”Q4 2” 

Ptpoint ■ 2 

Endif 

Do Replaord 
Loop 
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Case Xvsopt - 8 

Morder " ’’Pedal Pulse” 

Do B:Time 

If CTimeopt < 34 .Or. Timeapt - 413 

* — Less than Q4h 
Passdata - ”Q5 1” 

Ptpoint - 0 

Else 

* — Q4h or more 
Passdata - ”Q5 2” 

Ptpoint - 2 

Endif 

Do Replaord 
Loop 

Case Xvsopt = 8 

Morder = ’’Axillary Temps” 

Do B:Time 

If CTimeopt < 31 .Or. Timeopt = 413 

* — Less than QID 
Passdata - ”Q2 2” 

Ptpoint = 0 

Else 

* — QID or more 
Passdata - ”Q2 4” 

Ptpoint " 2 

Endif 

Do Replaord 
Loop 

Case Xvsopt = 10 

Morder - ’’Rectal Temps” 

Do B:Time 

If CTimeopt < 31 .Or. Timeopt = 413 
m — Less than QID 
Passdata - ”Q2 1” 

Ptpoint - 0 
Else 

* — QID or more 
Passdata - ”Q2 3” 

Ptpoint - 2 

Endif 
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Do Reploord 
Loop 

Cose Xvsopt = 11 

Morder - ’’Tilt Test” 

Do B:Time 

If CTimeopt < 34 .Or. Timeopt “ 413 

* — Less than Q4h 
Possdote - ”Q7 1” 

Ptpoint - 0 

Else 

* — Q4h or more 
Passdote - ”Q7 2” 

Ptpoint - 2 

Endif 

Do Reploord 
Loop 

Cose Xvsopt = 12 

* — Doctor’s Order Screen 
Dmenu “ ’ 1 ’ 

Return 

Cose Xvsopt - 13 

* — Master Screen 

Dmenu ” ’ ’ 

Return 

Endcase 

Release Xvsopt 
Enddo 
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**** XRAY PR6 ******************************************** 



* 


Author : 


Gary R. Harmeyer LCDR NC USN 


* 


Date : 


8 December 1985 


* 


Screen Generated By: 


The Software Bottling Company 


* 




Of New York, cl9B5 


* 


Purpose : 


Determine xray orders for the 


* 




patient . 


* 


Input Files Used: 


Xray. Scr and Procfile.Prg 


* 


Output Files Used: 


Orders . Dbf 


* 


Calling Routine: 


Doc_Menu . Prg 


* 


Routine Called: 


Time . Prg 


* 


Modification Date: 


4 February 1986 



* 



* — Screen Input Program For Xray — 

* 



Do Setup 
Public Xxrayopt 



Do While .T. 



* — Screen Display B: Xray. Scr — 

Set Color To U+/B.UI+/B 
Clear 

?? Flash+”S.B: Xray .Scr/” 

Set Color To U+/B,W+/B 
Xxrayopt ” 13 
Do Headings 
Do Startup 

@ 22,66 Get Xxrayopt Piet ”99” Range 0,20 
Read 



* — Evaluate action based on the option selected — 
Do Case 

Case Xxrayopt “ 0 
* — Sign-Off 
Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xxrayopt - 1 

Morder “ "Abdomen Flat Plate Xray” 

Do B:Time 
Do Replaord 
Loop 



257 



Case Xxrayopt - 2 

Morder - ’’Abdomen AP Xray” 

Do B:Time 
Do Replaord 
Loop 

Case Xxrayopt - 3 

Morder ~ ’’Abdomen 3-uiay Xray” 
Do B:Time 
Do Replaord 
Loop 

Case Xxrayopt - 4 

florder - ’’Angiography” 

Do B:Time 
Do Replaord 
Loop 

Case Xxrayopt ” 5 

Morder “ ’’Arteriography” 

Do B:Time 
Do Replaord 
Loop 

Case Xxrayopt - 6 

Morder - ’’Barium Enema” 

Do B:Time 
Do Replaord 
Loop 

Case Xxrayopt - 7 

Morder - ’’Brain Scan” 

Do B: Time 
Do Replaord 
Loop 

Case Xxrayopt “ B 

Morder * ’’Chest PA Xray” 

Do B:Time 
Do Replaord 
Loop 

Case Xxrayopt - 9 

Morder “ ’’Chest Lateral Xray” 
Do B:Time 
Do Replaord 
Loop 

Case Xxrayopt " 10 
Morder ~ ”CT Scan” 
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Do B:Time 
Do Replaord 
Loop 

Cose Xxrayopt " 11 

norder - ’’Gallbladder Series 
Do B:Time 
Do Replaord 
Loop 

Case Xxrayopt “ 12 
Horder - ”IUP” 

Do B:Time 
Do Replaord 
Loop 

Case Xxrayopt “ 13 

border ** ’’Sinus Series” 

Do B:Time 
Do Replaord 
Loop 

Case Xxrayopt - 14 

norder = ’’Skull Xray” 

Do B:Time 
Do Replaord 
Loop 

Case Xxrayopt - 15 

norder “ ’’Spine Xray” 

Do B:Time 
Do Replaord 
Loop 

Case Xxrayopt ~ 16 

norder ” ’’Tomography” 

Do BrTime 
Do Replaord 
Loop 

Case Xxrayopt " 17 

norder - ’’Upper GI Series” 

Da B:Time 
Do Replaord 
Loop 

Case Xxrayopt - 10 

norder - ’’Ultrasound” 

Do B:Time 



259 



Do Replaord 
Loop 

Case Xxrayopt - 19 

* — Doctor’s Order Screen 
□menu - ’ 1 ’ 

Return 

Case Xxrayopt - SO 

* — Haster Screen 

□menu - ’ ’ 

Return 

Endcase 

Release Xxrayopt 
Enddo 
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+ *•* OISCONT PR6 ********** < ***** 1 * 4 **** 4 * (4 * (4 * ( * 4(4<(4<( ** 4, ******** j * 4> * 



* Author: 

* Date: 

* Screen Generated By: 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Calls: 

* Modification Date: 

« 



Gary R. Harmeyer LCDR NC USN 
18 December 1985 
The Software Bottling Company 
Of New York, cl985 
Display patient orders to determine 
if any are to be discontinued. 
Discont.Scr and Pracfile.Prg 
Orders . Dbf 
Doctor . Prg 
None 

18 February 1986 



* — Screen Input Program For Discont — 



Do Setup 

Public Xdisopt , Xdcdate, Xdcorder , Xdcprac 
Public Xdcfreq, Xmptfmpssn, Xordpack 
Xardpack “ . F . 



* — Identify correct patient to display orders — 



Use B: Orders 

Store + Ptfmpssn + To Xmptfmpssn 

Locate For Fmpssn = &Xmptfmpssn .And. Module # ’N’ 



Do While .T. 



* — Store data from Dbf file into variable names — 



Xdcdate = Odate 
Xdctime “ Otime 
Xdcorder =* Order 
Xdcfreq = Freq 
Xdcprac = Prac 

* — Screen Display A : Discont . Scr — 

Set Color To W+/B.U+/B 
Clear 

?? Flash+ ”S . A : Discont . Scr/ ” 

Set Color To UI+/B.U+/B 
Xdisopt * 1 
Da Headings 
G 13,1 Say Xdcdate 
G 13,10 Say Xdctime 
G 13,19 Say Xdcorder 
G 13,47 Say Xdcfreq 
G 13,60 Say Xdcprac 
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G 22,67 Get Xdisapt Piet ”9” Range 0,4 
Read 



* — Evaluate action based on the option selected -- 
Do Case 

Case Xdisopt - 0 

* — Sign-Off 

If Xordpack ” .T. 

Pack 

Endif 

Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xdisopt = 1 

* — Next Order 
Skip 

Do While CCFmpssn # &Xmptf mpssnl .Or . C Module = ”N”DD 
If EOFC D 

G 24,4 Say ”No Additional Medical Orders On ” 

G 24,36 Say "This Patient — Press Any Key To ” 
G 24,69 Say ’’Continue” 

Set Console Off 
Wait 

Set Console On 

IF Xordpack * .T. 

Pack 
Endif 
Return 
Else 
Skip 
Endif 
Enddo 
If EOF CD 

G 24,4 Say ”No Additional Medical Orders On ” 

G 24,36 Say ’’This Patient -- Press Any Key To ” 

G 24,69 Say ’’Continue” 

Set Console Off 
Wait 

Set Console On 
If Xordpack - .T. 

Pack 

Endif 

Return 

Else 

Loop 

Endif 
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Case Xdisapt = 2 

* — Discontinue The Order 
Xordpack - .T. 

Delete 

Skip 

Do While CCFmpssn # &XmptFmpssn3 .Or . CModule = ”N”33 
IF EOF CD 

@ 24,4 Say ”No Additional Medical Orders On ” 

(3 24, 3B Say ’’This PatiBnt — Press Any Key To ” 
@ 24,63 Say ’’Continue” 

Set Console OFF 
Wait 

Set Console On 
Pack 
Return 
Else 
Skip 
EndiF 
Endda 
IF EOF C 3 

@ 24,4 Say ”No Additional Medical Orders On ” 

@ 24,36 Say ’’This Patient — Press Any Key To ” 

@ 24,63 Say ’’Continue” 

Set Console OFF 
Wait 

Set Console On 
Pack 
Return 
Else 
Loop 
EndiF 

Case Xdisopt - 3 

* — Dr’s Master 
IF Xordpack = .T. 

Pack 

EndiF 

Dmenu =”1” 

Return 

Case Xdisopt - 4 

* — Master 

IF Xordpack m .T. 

Pack 

EndiF 

Dmenu ” 

Return 
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Endcase 

Release Xdi sopt , Xdcdate , Xdcorder , Xdcprac 
Release Xdcf req , Xmptf mpssn , Xordpack 

Enddo 
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»*** TRANSFER . PRG ****n***n* ,,, ** 1,ti ** M ***** i ** , **** , ****** , ** ,i *** i * i ' M ** 



* Author: 

* Date: 

* Screen Generated By : 

m 

* Purpose: 



* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 

3 December 1SS5 

The Software Bottling Company 
Of New York, cl9B5 
Menu to determine if patient will 
be admitted, transferred or 
discharged . 

Transfer. Scr and Procfile.Prg 
Orders . Dbf 
Doctor . Prg 
None 

4 February 1SBB 



* 



* — Screen Input Program For Transfer — 



Do Setup 
Public Xtranopt 



Do Uhile .T. 



* — Screen Display A: Transfer .Scr -- 

Set Color To W+/B,W+/B 
Clear 

?? Flash* ”S . A : Transf er . Scr/ ” 

Set Color To UI+/B , W+/B 
Xtranopt = 4 
Do Headings 
Do Startup 

@ 22 , 67 Get Xtranopt Piet ”3” Range 0,5 
Read 



* — Evaluate action based on the option selected — 
Do Case 

Case Xtranopt - 0 
* -- Sign-Off 
Close Databases 
Release All 
Close Procedure 

Case Xtranopt - 1 
Morder - ’’Admit” 

Passdata - ”62 2” 

Ptpoint - 12 
Todayonly m ”T” 
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Do Replaord 
Loop 

Case Xtranopt “ 2 
Morder - ’’Transfer” 

Passdata - ”62 1” 

Ptpoint - 4 
Todayonly = ”T” 

Do Replaord 
Loop 

Case Xtranopt =* 3 

Morder “ ’’Discharge” 

Do Replaord 
Loop 

Case Xtranopt ** 4 

* — Doctor’s Master Screen 
Dmenu - ’ 1 ’ 

Return 

Case Xtranopt * 5 
m — Master Screen 
Dmenu ” ’ ’ 

Return 

Endcase 

Release Xtranopt 
Enddo 
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***» NURSE. PRG *• + • + + •+ + + •• + * + *• + + + + •• +++•**** + **** + •*•<*' + • 



m Author: 

* Date: 

* Screen Generated By: 

* 

* Purpose: 

♦ 

* 

* 

* 

* 

* Input Files Used: 

* Output Files Used: 

* Output File Created: 

* Calling Routine: 

* Routine Calls: 

* flodification Date: 



Gary R . Harmeyer LCDR NC USN 
20 December 1985 
The Software Bottling Company 
Of New York, cl985 
Provide the nurse options of enter- 
ing or reviewing nursing care 
plans. The module allows the 
nurse to determine thB patiBnt 
classification level either in- 
ternally or externally. 

Nurse. Scr and Procfile.Prg 
Orders and Ncaredb.Dbf 
Return . Txt 
Ulard2 or Ward3.Prg 
Nursel . Prg 
3 March 1986 



* 



* — Screen Input Program For Nurse — 



Do Setup 

Public Xnuropt , Nmenu , Xpoints , Xmonpt , Xemopt , Xroupt , Xlevel 
Public Xnow.Xtoday 
Nmenu - Spaced! 

Xpoints - 0 

Xmonpt = 0 

Xemopt * 0 

Xroupt = 0 

Xlevel “ SpaceC12D 

Store DTOCCDateCD! To Xnow 

Stare ” + Xnow + ” ' ” To Xtoday 



Do While .T. 



* — Screen Display A:Nurse.Scr -- 

Set Color To U+/B,UJ+/B 
Clear 

?? Flash+”S. A: Nurse .Scr/” 

Set Color To U+/B , UH-/B 
Xnuropt ” 8 
Do Headings 

@ 22,67 Get Xnuropt Piet ”9” Range 0,8 
Read 



* — Evaluate action based on the option selected — 
Do Case 
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Case Xnuropt “ 0 

* — Sign-OFF 
Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xnuropt - 1 

* -- Enter/ Inactivate Nursing Care Plan 
Do B:NursBl 

IF Nmenu “ ”1” 

Loop 

Else 

Return 

EndiF 

Case Xnuropt - 2 

* — Review Nursing Care Plan 
Clear 

Set Color To W+/B.W+/B 
0 1,20 Say ’’Nursing Care Plan For:” 

0 1,43 Say Ourpt 

0 3,10 Say ’’Press — Ctrl and S — Keys ” 

0 3,38 Say ”to Pause The Scrolling IF Necessary” 

Use BrNcaredb 

Store ” ’ ” + PtFmpssn + ” ’ ” To MptFmpssn 
Report Form B:NC For NFmpssn ■ SmptFmpssn 
Wait 
Loop 

Case Xnuropt = 3 

* — Print Nursing Care Plan 

0 24,0 Say ’’Turn On Your Printer, ” 

0 24,22 Say ’’Then Hit Any Key To Print” 

Set Console OFF 
Wait 

Set Console On 
Clear 

0 12,30 Say ’’Printing, Please Wait” 

Set Console OFF 
Set Device To Print 

0 1,20 Say ’’Nursing Care Plan For:” 

0 1,43 Say Ourpt 
Set Device To Screen 
Use B:Ncaredb 

Store ”’” PtFmpssn + To MptFmpssn 

Report Form B:NC Noeject; 

To Print For NFmpssn - SmptFmpssn 
Set Console On 

0 24,0 Say ’’Finished Printing, Hit ” 
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0 24,22 Say "Any Key To Continue” 

Set Console Off 
Wait 

Set Console On 
Loop 

Case Xnuropt ” 4 

* — Determine Patient Classification Level 
Use B: Orders 

Store + Ptfmpssn + To flptfmpssn 

Copy To B: Return Fields Expertsys Sdf ; 

Fmpssn =* Smptfmpssn .And. COnlytoday - ”F” .Or.; 
COnlytoday - ”T” .And. Odate - SXtaday]] 

Close Procedure 
Close Databases 
Release All 

* — Exit this portion of prototype software 
Quit 

Case Xnuropt * 5 

* — Review Patient Care Requirements 
Clear 

Set Color To W+/B.W+/B 

@ 1,17 Say ’’Patient Care Requirements For:” 

@ 1,48 Say Ourpt 

@ 3,10 Say ’’Press — Ctrl and S — Keys To Pause ” 

@ 3,47 Say ’’The Scrolling If Necessary” 

Use B: Orders 

Store ” ’” + Ptfmpssn + To Mptfmpssn 

Report Form B:0rd For; 

Fmpssn - Smptfmpssn .And. COnlytoday * ”F” .Or.; 
COnlytoday - ”T” .And. Odate - &XtadayD3 
Wait 
Loop 

Case Xnuropt * 6 

* — Print Patient Care Requirements 
@24,0 Say ’’Turn On Your Printer, ” 

@ 24,23 Say ’’Then Hit Any Key To Print” 

Set Console Off 
Wait 

Set Console On 
Clear 

@ 12,30 Say ’’Printing, Please Wait” 

Set Console Off 
Set Device To Print 

@ 1,17 Say ’’Patient Care Requirements For:” 

@ 1,47 Say Ourpt 
Set Device To Screen 
Use B: Orders 
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Store + Ptfmpssn + To flptFmpssn 

Report Form B:Ord Noeject To Print For; 

Fmpssn - &mptfmpssn .And. COnlytoday - ”F 
COnly today “ "T” .And. Odate - &Xtoday33 
Set Console On 

0 24,0 Say ’’Finished Printing, Hit ” 

@ 24,23 Say ’’Any Key To Continue” 

Set Console OFF 
Wait 

Set Console On 
Loop 

Case Xnuropt = 7 

* -- Internal Patient ClassiFication 
Clear 

Set Color To W+/B , W+/B 

@ 7,25 Say ’’Please Wait While Calculating” 
Use B: Orders 

Store ”’” + PtFmpssn + To MptFmpssn 

Sum Critical To Xpoints For; 

Fmpssn - SmptFmpssn .And. COnlytoday ■ ”F 
COnlytoday = ”T” .And. Odate - &Xtoday33 
Sum Monpt To Xmanpt For; 

Fmpssn = SmptFmpssn .And. COnlytoday " ”F 
COnlytoday “ ”T” .And. Odate - SXtoday ] ] 
IF Xmonpt > 0 

Xpoints = Xpoints + 6 
EndiF 

Sum Emopt To Xemopt Far; 

Fmpssn - SmptFmpssn .And. COnlytoday - ”F 
COnlytoday “ ”T” .And. Odate " SXtoday D] 
IF Xemopt >“ 10 

Xpoints m Xpoints + 10 
Else 

Xpoints - Xpoints + Xemopt 
EndiF 

Sum Roupt To Xroupt For; 

Fmpssn “ SmptFmpssn .And. COnlytoday " ”F 
COnlytoday ■ ”T” .And. Odate = SXtodayDD 
Do Case 

Case Xroupt < 6 

Xpoints = Xpoints + 0 
Case CXroupt > 5 .And. Xroupt < 123 
Xpoints “ Xpoints + 2 
Case CXroupt > 11 .And. Xroupt < 103 
Xpoints - Xpoints + 4 
Case CXroupt > 17 .And. Xroupt < 243 
Xpoints - Xpoints + 6 



.Or 



.Or 
. Or 

. Or 
. Or 
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Case Xroupt > 23 

Xpoints " Xpoints + 8 
Endcase 

* — Determine patient classification level based on 

* — patient care points — 

Do Case 

Case Xpoints < 13 

Xlevel “ ’’Category I” 

Case CXpoints > 12 .And. Xpoints < 321 
Xlevel “ ’’Category II” 

Case CXpoints > 31 .And. Xpoints < 641 
Xlevel “ ’’Category III” 

Case CXpoints > 63 .And. Xpoints < 961 
Xlevel “ ’’Category IU” 

Case CXpoints > 95 .And. Xpoints < 1461 
Xlevel • ’’Category U” 

Case Xpoints > 146 

Xlevel = ’’Category IU” 

Endcase 

Clear 

Set Color To UJ+/B , UJ+/B 
8 7,30 Say ’’Patient: ” 

G 7,39 Say Ourpt 
G 8,30 Say ”Is In: ” 

G 8,37 Say Xlevel 
G 10,30 Say ’’Point Ualue Is:” 

G 10,46 Say Xpoints 

G 24,0 Say ’’Calculation Complete — ” 

G 24,24 Say ’’Press Any Key To Continue” 

Set Console Off 
Wait 

Set Console On 
Loop 

Case Xnuropt “ 8 

* — Master Screen 
Return 

Endcase 

Release Xnuropt , Xpoints , Xmonpt , Xemopt , Xroupt , Xlevel 
Release Xnow,Xtoday 

Enddo 
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**** nursei.prg ************************•<••»*»**»****«*»** 



* Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Calls: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
20 December 1305 
The Software Bottling Company 
Of New York, cl985 
Enables the nurse to enter or 
modify a nursing care plan. 
Nursel.Scr and Procfile.Prg 
None 

Nurse . Prg 

N_Diag or Inact.Prg 
4 February 1386 



* — Screen Input Program For Nursel — 



Do Setup 

Public Xnurslopt 



Do While .T. 



* -- Screen Display A:Nursel.Scr — 

Set Color To W+/B , U+/B 
Clear 

?? F lash+”S . A : Nursel . Scr/ ” 

Set Color To W+/B , U+/B 
Xnurslopt “ 4 
Do Headings 

@ 22,67 Get Xnurslopt Piet ”3” Range 0,4 
Read 

* — Evaluate action based on the option selected — 
Do Case 

Case Xnurslopt • 0 

* — Sign-Off 
Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xnurslopt - 1 

* -- Enter A New Care Plan 
Do B:N_Diag 

Return 

Case Xnurslopt “ 2 

* — Inactivate A Nursing Care Plan 
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Do B : Inactive 
Return 

Case Xnurslopt =■ 3 

* — Nurse’s Master Screen 
Nmenu - ”1” 

Return 

Case Xnurslopt - 4 

* — Master Screen 

Store ’ ’ To Nmenu 

Return 

Endcase 

Release Xnurslopt 
Enddo 
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» « • « |vj DI AG . PRG * | »*** i ' , *»«****»*» , ***«*»*******<«******«*«**« 



* Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
20 December 1985 
The Softuiare Bottling Company 
Of New York, cl985 
Allows the nurse to chose from a 
menu of four nursing diagnoses. 
N_Diag.Scr and Procfile.Prg 
None 

Nursel . Prg 

Assess.l , Assess_2 , Assess_3 , or 
Assess_4 . Prg 
4 February 1986 



* -- Screen Input Program For N_Diag -- 

* 

Da Setup 

Public Xndiagopt , Nursdiag , Emo teach , Nrelate , Ngoal , Nassess 

Public Assoth , Re loth , Goaoth , Ordoth 

Nursdiag - SpaceCSOl 

Emoteach * SpaceC193 

Nrelate - SpaceC253 

Ngoal “ SpaceC38D 

Nassess - SpaceC27] 

Assoth - SpaceC27D 
Reloth ” SpaceC251 
Goaoth * SpaceC3B3 
Ordoth - SpaceC271 



Do While .T. 



* — Screen Display A:N_Diag.Scr — 

Set Color To U)+/B , U1+/B 
Clear 

?? Flash+”S.A:N_Diag. Scr/ ” 

Set Color To Ul+/B,ld+/B 
Xndiagopt ” 5 
Do Headings 
Da Startup 

@ 22,67 Get Xndiagopt Piet ”9” Range 0,6 
Read 



* — Evaluate action based on the option selected — 
Do Case 



Case Xndiagopt = 0 
* — Sign-Off 
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Close Databases 
Close Procedure 
Release All 
Return To Master 

Case Xndiagopt = 1 

Nursdiag ■ ’’Comfort Alteration In: Pain” 

Do B:Assess_l 
Loop 

Case Xndiagopt = 2 

Nursdiag =* ’’Communication Impaired: Uerbal” 

Do B:Assess_2 

Loop 

Case Xndiagopt = 3 

Nursdiag - ’’Impaired Physical Mobility” 

Da B:Assess_3 
Loop 

Case Xndiagopt = 4 

Nursdiag = ’’Self-Care Deficit” 

Do B:Assess_4 
Loop 

Case Xndiagopt = 5 

* — Nurse’s Master Screen 
Nmenu - ”1” 

Return 

Case Xndiagopt = 6 

* -- Master Screen 
Nmenu - ” ” 

Return 

Endcase 

Release Xndiagopt 
Enddo 
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***** ASSESS 1 . PRG **************************************** 



* Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

* 

* 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 

* 



Gary R. Harmeyer LCDR NC USN 
20 December 1985 
The Software Battling Company 
Of New York, cl98S 
Provides a menu for the nurse to 
select nursing assessments for a 
patient with a nursing diagnosis 
of comfort alteration in: pain. 
Assess_l.Scr and Procfile.Prg 
None 

N_Diag . Prg 
Relate_l . Prg 
3 February 1986 



* — Screen Input Program For Assess_l -- 



Do Setup 
Public Xasslopt 



Do While .T. 



* — Screen Display A : Assess_l . Scr -- 

Set Color To UJ+/B,W+/B 
Clear 

?? Flash+”S . A : Assess_l . Scr/ ” 

Set Color To UI+/B,U+/B 
Xasslopt = 11 
Do Headings 

@ 22,66 Get Xasslopt Piet ”99” Range 1,16 
Read 



* — Allows the nurse to document assessment of the 

* — patient — 



Do Case 

Case Xasslopt - 1 

Nassess “ ’’Altered Time Perception” 

Do B:Relate_l 
Return 

Case Xasslopt = 2 

Nassess = ’’Alteration In Muscle Tone” 

Do B:Relate_l 

Return 
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Case Xasslapt - 3 

Nassess * ’’Autonomic Response” 

Do B:Relate_l 
Return 

Case Xasslopt - 4 

Nassess - ’’Distraction Behavior” 

Da B:Relate_l 
Return 

Case Xasslopt * 5 

Nassess ■ ’’Facial flask” 

Da B:Relate_l 
Return 

Case Xasslapt ” 6 
0 10,24 Get Assath; 

Piet ” ! XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

Nassess = Assoth 
Da B:Relate_l 
Return 

Case Xasslopt = 7 

Nassess = "Guarding Behavior” 

Do B:Relate_l 
Return 

Case Xasslopt = 8 

Nassess = ’’Impaired Thought Process” 

Do B:Relate_l 

Return 

Case Xasslopt = 9 

Nassess “ "Narrowing Focus” 

Do B:Relate_l 
Return 

Case Xasslopt = 10 
Nassess = "Pacing” 

Do B:Relate_l 
Return 

Case Xasslopt = 11 

Nassess = ’’Patient Report” 

Do B:Relate_l 
Return 

Case Xasslopt - 12 

Nassess ■ ”SelF_Focusing” 
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Do B:Relate_l 
Return 

Case Xosslopt =* 13 

Nassess ■ ’’Talkative” 

Do B:Relate_l 
Return 

Case Xasslopt * 14 

Nassess - ’’Uerbal Complaint” 

Do B:Relate_l 
Return 

Case Xasslopt * 15 

Nassess ” ’’Uerbal Complaint” 

Do B:Relate_l 
Return 

Case Xasslopt - 16 

Nassess * ’’UJ/draw From Social Contact” 

Do B:Relate_l 

Return 

Endcase 

Release Xasslopt 
Enddo 



278 



**** RELATE 1 . PRG **********************************'****** 



* Author: 

* Date: 

* Screen Generated By 

* 

* Purpose: 

* 

* 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
20 December 1985 
The Software Bottling Company 
Of New York, cl9B5 
Provides a menu for the nurse to 
select related factors for a 
patient with a nursing diagnosis 
of comfort alteration in: pain. 
Relate_l.Scr and Procfile.Prg 
None 

Assess_l . Prg 
Goal_l . Prg 
1 February 1986 



* — Screen Input Program For Relate_l — 

* 

Do Setup 
Public Xrellopt 



Do While .T. 



* — Screen Display A: Relate_l . Scr — 

Set Color To UI+/B , W+/B 
Clear 

?? F lash+”S ,A:Relate_l. Scr/ ” 

Set Color To UI+/B , W+/B 
Xrellopt ” 2 
Do Headings 

@ 22,67 Get Xrellopt Piet ”9” Range 1,7 
Read 

* — Previous assessment is related to same cause — 
Do Case 

Case Xrellopt = 1 

Nrelate * ’’Altered Sensation” 

Do B:Goal_l 
Return 

Case Xrellopt • 2 

Nrelate - ’’Disease / Condition” 

Do B:Goal_l 
Return 

Case Xrellopt = 3 

Nrelate • "Emotional State” 
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Do B:Goal_l 
Return 

Case Xrellopt = 4 
S 17,14 Get Reloth; 

Piet ” ! XXXXXXXXXXXXXXXXXXXXXXXX” 
Read 

Nrelate = Reloth 
Do B:Goal_l 
Return 

Case Xrellopt = 5 

Nrelate - ’’Surgical Procedure” 

Do B:Goal_l 
Return 

Case Xrellopt = G 
Nrelate - ’’Trauma” 

Do B:Goal_l 
Return 

Case Xrellopt = 7 

Nrelate = ’’Treatment Regime” 

Do B:Goal_l 
Return 

Endcase 

Release Xrellopt 
Enddo 
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* 

* 

* 



* 



m 

* 

m 



m 

m 



m 



GOAL 1 . PRG *-*-****n»****** j ***n* j * j **‘ , **** M * , ' M ' H ** , **** H < H *'**** M *** 



Author : 

Date : 

Screen Generated By: 
Purpose: 



Input Files Used: 
Output Files Used: 
Calling Routine: 
Routine Called: 
Modification Date: 



Gary R. Harmeyer LCDR NO USN 
20 December 1905 
The Software Bottling Company 
Of New York, cl905 
Provides a menu for the nurse to 
select a patient goal for a 
patient with a nursing diagnosis 
of comfort alteration in: pain. 
Goal_l.Scr and Procfile.Prg 
None 

Relate_l . Prg 

NorderlA or NorderlB.Prg 
3 February 1906 



* — Screen Input Program For Goal_l — 



Do Setup 
Public Xgoalopt 



Do While .T. 



* — Screen Display A:Goal_l.Scr — 

Set Color To UJ+/B , W+/B 
Clear 

?? Flash-*- ”S .A : Goal_l . Scr/ ” 

Set Color To UM-/B , UJ+/B 
Xgoalopt m 2 
Do Headings 

@ 22,67 Get Xgoalopt Piet ”9” Range 1,5 
Read 



* — Allows nurse to select specific goal at linable 

* — by this patient -- 



Do Case 

Case Xgoalopt = 1 

Ngoal - ’’Communicates Pain Free” 

Do B: NorderlA 
Return 

Case Xgoalopt = 2 

Ngoal “ ’’Communicates Experiences Less Pain” 

Da B: NorderlA 

Return 
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Case Xgoalapt “ 3 

Ngoal =* ’’Communicates Experience Tolerable Pam” 

Do B:NorderlA 

Return 

Case Xgoalopt - 4 

Ngoal - ’’Demos Skills/Knouiledge To Achieve Goal” 

Do B:NorderlB 

Return 

Case Xgoalopt - 5 
G 17,34 Get Goaoth; 

Piet ” ! XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ” 
Read 

Ngoal - Goaoth 
Do B:NorderlA 
Return 

Endcase 

Release Xgoalopt 
Enddo 
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mmmm N0RDER1A . PRG **************************************** 



* Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

* 

* 

* 

* 

* Input Files Used: 

* 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
BO December 1S85 
The Software Bottling Company 
Of New York, clSSS 
Provides a menu for the nurse to 
select a nursing order for a pa- 
tient whose goal is communicates 
experiences less/tolerable pain 
or is pain free. 

NorderlA . Scr , Time, Emosup, Teach 
and Procfile.Prg 
Orders. Dbf and Ncaredb.Dbf 
Goal_l . Prg 
None 

3 February 1985 



* — Screen Input Program For NorderlA -- 



Do Setup 

Public Xnordlaopt 



Do While .T. 



* — Screen Display A : NorderlA . Scr — 

Set Color To U+/B,W+/B 
Clear 

?? Flash* ”S . A : NorderlA . Scr/ ” 

Set Color To LJ+/B,W+/B 
Xnordlaopt ~ 10 
Do Headings 

@ 22,86 Get Xnordlaopt Piet ”9S” Range 1,10 
Read 

* — Nursing orders are determined by evaluating the 

* — case statement, then place data into Ncaredb and 

* — Orders. Dbf files — 

Do Case 

Case Xnordlaopt - 1 

Morder “ ’’Assess Pain Factors” 

Do B:Time 
Do Replaord 
Do Repnrord 
Return 
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Case Xnordlaopt “ E 

riorder - ’’Assess/Evaluate Pain” 

Do B:Time 
Do Replaord 
Da Repnrord 
Return 

Case Xnordlaopt • 3 

Harder “ "Encour To Use Coping Skills” 

Do B:Time 

Do Replaord 

Do Repnrord 

Return 

Case Xnordlaopt - 4 

Harder ■ ’’Explain Prac S Tests” 

Da BrTime 
Do Replaord 
Do Repnrord 
Return 

Case Xnordlaopt * 5 
0 18,10 Get Ordoth; 

Piet ” ! XXXXXXXXXXXXXXXXXXXXXXXXXX” 
Read 

Harder = Ordoth 
Do B:Time 
Do Replaord 
Do Repnrord 
Return 

Case Xnordlaopt = 6 

Horder ” ’’Offer PRN Hedications” 

Do B:Time 
Do Replaord 
Do Repnrord 
Return 

Case Xnordlaopt - 7 

Harder - ’’Provide Emotional Support” 

Da B : Emosup 
Do Replaord 
Do Repnrord 
Return 

Case Xnordlaopt “ 8 

Harder = ’’Schedule Quiet Times” 

Do B:Time 
Da Replaord 
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Do Repnrord 
Return 

Case Xnordlaapt - 9 

Harder “ ’’Teach Alt Coping Strategies 

Do B: Teach 

Do Replaard 

Do Repnrord 

Return 

Case Xnordlaopt - 10 

Harder =■ ”L)til Diversianal Activities 

Da BrTime 

Da Replaard 

Do Repnrord 

Return 

Endcase 

Release Xnordlaopt 
Endda 
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**«* NQRDER1B . PRG *** 

* Author: 

* Date : 

* Screen Generated By 
* 

* Purpose : 

* 



Input Files Used 
Output Files Useu; 
Calling Routine: 
Routine Called: 
Modification Date: 



**•**•****••*••******••****»****«**#«> 

Gary R . Harmeyer LCDR NC USN 
20 December 1985 
The Software Bottling Company 
Of New York, cl9B5 
Provides a menu for the nurse to 
select a nursing order for a pa- 
tient whose goal is demonstrates 
skills and knowledge to achieve 
goals . 

NorderlB . Scr , Teach & Procfile.Prg 
Orders. Dbf and Ncaredb.Dbf 
Goal_l . Prg 
None 

1 February 1986 



* — Screen Input Program For NorderlB -- 

* 

Do Setup 

Public Xnordlbopt 



Do While .T. 



* — Screen Display A : NorderlB . Scr — 

Set Color To W+/B , UI + /B 
Clear 

?? Flash-*- ”S . A: NorderlB . Scr / ” 

Set Color To U+/B , UJ + /B 
Xnordlbopt ” 1 
Do Headings 

@ 2B,67 Get Xnordlbopt Piet ”9” Range 1,5 
Read 



* — Nursing orders are determined by evaluating the 

* — case statement, then place data into Ncaredb and 

* — Orders . Dbf files -- 



Do Case 

Case Xnordlbopt =* 1 

Morder * ’’Teach: Deep Breathing Exer” 

Do B: Teach 

Do Replaord 

Do Repnrord 

Return 

Case Xnordlbopt = E 

Morder =• ’’Teach: Prog/sive Relax Exer” 
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Morder “ ’’Teach: Deep Breathing Exer” 

Do B: Teach 

Do Replaord 

Do Repnrord 

Return 

Case Xnordlbopt - 2 

border - ’’Teach: Prog/sive Relax Exer” 

Do B:Teach 

Da RBplaord 

Do Repnrord 

Return 

Case Xnordlbopt - 3 

horder - ’’Teach: Relaxation Response” 

Do B: Teach 

Do Replaord 

Do Repnrord 

Return 

Case Xnordlbopt = 4 

harder - ’’Teach: Diversional Activity” 

Do B: Teach 

Do Replaord 

Do Repnrord 

Return 

Case Xnordlbopt *■ 5 
(3 1B,3B Get Qrdoth; 

Piet ”! XXXXXXXXXXXXXXXXXXXXXXXXX ” 
Read 

border ” Qrdoth 
Do B: Teach 
Do Replaord 
Do Repnrord 
Return 

Endcase 

Release Xnordlbopt 
Enddo 
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«*** TEACH . PRG **»»*<*****************»********»**»»»»»**** 



* Author: 

* Date: 

* Screen Generated By : 

m 

* Purpose: 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

m 

* Routine Called: 

* Modification Date: 

* 



Gary R . Harmeyer LCDR NC USN 
23 December 1385 
The Software Bottling Company 
Of New York, cl98S 
Provides a menu to select teaching 
requirements of the patient. 
Teach. Scr and Procfile.Prg 
None 

NorderlA, NorderlB, NorderBC, and 
Norder3E . Prg 
None 

3 February 1986 



* — Screen Input Program For Teach — 

* 

Do Setup 

Public Xteachopt 
Xteachopt “ Spaced] 



Do While .T. 



* — Screen Display A: Teach. Scr -- 

Set Color To W+/B,W+/B 
Clear 

?? F lash+ ”S . A : Teach . Scr/ ” 

Set Color To W+/B,W+/B 
0 19,54 Get Xteachopt Piet ”!” 

Read 



* — Ualidate response -- 

Do While .Not. CXteachopt **”A” .Or. Xteachopt = ”B” .Or.; 
Xteachopt * ”C” .Or. Xteachopt“”D” ] 

0 19,53 Clear 

Store ’ ’ To Xteachopt 

0 24,0 Say ’’Re-Enter Letter A, B, C, or D” 

0 19,54 Get Xteachopt Piet ”!” 

Read 

Enddo 



* — Determine teaching requirements by evaluating 

* — option selected -- 



Do Case 

Case Xteachopt - ”A” 

Emoteach =* ’’Group Teaching 
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Passdata - ”Q76 1” 

Ptpoint “ 2 
Return 

Case Xteachapt - ”B” 

Emateach - ”Pre-ap Teaching” 
Passdata ~ ”Q77 1 ” 

Ptpoint - 4 
Todayonly - ”T” 

Return 

Case Xteachapt “ ”C” 

* — Return to previous screen 
Return 

Case Xteachopt = ”D” 

Emoteach - ’’Structured Teaching” 
Passdata - ”Q7B 1” 

Ptpoint - 4 
Return 

Endcase 

Release Xteachopt 
Enddo 
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* * * * EMOSUP PRG **»******» , **** i ** <, **** 1 * 1 *** , * t< ***** <, * ,, ****« , »* M *** 



* Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

* 

m 

* Input Files Used: 

* Output Filss UsBd: 

* Calling Routine: 

* 

* Routine Called: 

* Modification Date: 

m 



Gary R.Harmeyer LCDR NC USN 
E3 December 19B5 
The Software Bottling Company 
Of New York, cl985 
Provides a menu to select emotional 
support requirements of the 
patient . 

Emosup.Scr and Procfile.Prg 
NcnB 

NorderlA, Norder4C, Norder4D, 
and Norder4E.Prg 
None 

E5 January 1386 



* — Screen Input Program For Emosup -- 

m 



Do Setup 
Public Xesupopt 
Xesupopt = Spaced! 



Do While .T. 



* — Screen Display A: Emosup.Scr — 

Set Color To W+/B,W+/B 
Clear 

?? Flash+ ”S . A : Emosup . Scr/ ” 

Set Color To W+/B,W+/B 
0 El, 54 Get Xesupopt Piet ”!” 

Read 



* — Ualidate response — 

Do While .Not. CXesupopt =”A” .Or. Xesupopt =”B” .Or.; 
Xesupopt “ ”C” .Or. Xesupopt=”D” 3 
0 El ,53 Clear 
Store ’ ’ To Xesupopt 

0 E4,0 Say ”RB-Enter Letter A, B, C, or D” 

0 El, 54 Get Xesupopt Piet ”!” 

Read 

Enddo 

* — Determine emotional support requirements by eval- 

* uating the option selected — 



Do Case 
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Case Xesupopt - ”A” 

Emoteach “ ”Pt/Family Support” 
Passdata - ”Q79 1” 

Emopoint - 4 
Return 

Case Xesupopt - ”B” 

Emoteach - ’’Modify Lifestyle” 
Passdata - ”QBO 1” 

Emopoint - 4 
Return 

Case Xesupopt = ”C” 

Emoteach = ’’Sensory Deprivation 
Passdata = "QB1 1” 

Emopoint = 6 
Return 

Case Xesupopt - ”D” 

* — Return to previous screen 
Return 

Endcase 

Release Xesupopt 
Enddo 
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***» ASSESS_2 . PRG 



•A************************************** 



* Author: 

* Date: 

* Screen Generated By : 

m 

* Purpose: 



* Input Files Used: 

* Dutput Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
23 December 1985 
The Software Bottling Company 
Of New York, cl985 
Provides a menu for the nurse to 
select nursing assessment for a 
patient with a nursing diagnosis 
of communication impairment: 
verbal . 

Assess_2.Scr and Procfile.Prg 
None 

N_Diag . Prg 
Relate_2 . Prg 
3 February 1986 



* -- Screen Input Program For Assess_2 -- 



Do Setup 
Public Xass2opt 



Do While .T. 



* -- Screen Display A : Assess_2 . Scr — 

Set Color To U+/B,U+/B 
Clear 

?? Flash* ”S . A : Assess_2 . Scr/ ” 

Set Color To U+/B,U+/B 
Xass2apt - 01 
Da Headings 

@ 22,67 Get Xass2opt Piet ’'99’' Range 1,13 
Read 



* — Allows nurse to document assessment of the 

* -- patient 



Do Case 

Case Xass2opt - 1 

Nassess - ’’Anxiety” 

Do B:Relate_2 
Return 

Case Xass2opt ■ 2 

Nassess • ’’Disorientation 

Do B:Relate_2 

Return 
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Case Xass2opt - 3 
Nassess ■ ’’Fear” 

Do B:Relate_2 
Return 

Case XQSs2opt “ 4 

Nassess “ ’’Frustration” 

Do B:Relate_2 
Return 

Case Xass2opt - 5 
0 17,24 Get Assoth; 

Piet ” ! XXXXXXXXXXXXXXXXXXXXXXXXXX” 
Read 

Nassess =■= Assoth 
Do B:Relate_2 
Return 

Case Xass2opt - G 

Nassess - ’’Inability to Hear” 

Do B:Relate_2 
Return 

Case Xass2opt - 7 

Nassess - ’’Inability to Speak” 

Do B:Relate_2 
Return 

Case Xass2opt ” 8 

Nassess “ ’’Incomprehensible Speech” 

Do B:Relate_2 

Return 

Case Xass2opt - 9 

Nassess - ’’Refusal to Speak” 

Do B:Relate_2 
Return 

Case Xass2opt " 10 
Nassess =* ’’Slurring” 

Do B:Relate_2 
Return 

Case Xass2opt * 11 

Nassess = ’’Stuttering” 

Do B:Relate_2 
Return 

Case Xass2opt = 12 

Nassess “ ’’Tearfulness” 
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Do B:Relate_2 
Return 

Case XassEopt - 13 

Nassess - ’’Thought Disorder” 

Do B : Relate_2 

Return 

Endcase 

Release Xass2opt 
Enddo 
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**** RELATE 2 . PRG ******4*f**iflHi«*tttA#i*i*****<i#Mi**#*«*i* 



* Author: 

* Date: 

* Screen Generated By: 

* 

* Purpose: 



* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 



Gary R . Harmeyer LCDR NC USN 
23 December 1985 
The Software Bottling Company 
Of New York, cl985 
Provides a menu for the nurse to 
select related factors for a pa- 
tient with a nursing diagnosis of 
communication, impaired: verbal. 
Relate_2.Scr and ProcfilB.Prg 
None 

Assess_2 . Prg 
Goal_2 . Prg 
3 February 1986 



* 



* — Screen Input Program For Relate_2 — 



Do Setup 
Public Xrel2opt 



Do While .T. 



* -- Screen Display A : Relate_2 . Scr — 

Set Color To UJ+/B , W+/B 
Clear 

?? Flash-*- ”S . A : Relate_2 . Scr / ” 

Set Color To W+/B , W+/B 
Xrel2opt = 01 
Do Headings 

0 22,67 Get Xrel2opt Piet ”99” Range 1,10 
Read 



* — Previous assessment is related to some cause — 
Do Case 

Case Xrel2opt - 1 

Nrelate - ’’Anatomical Impairment” 

Do B:Goal_2 
Return 

Case Xrel2opt ” 2 

Nrelate “ ’’Cultural Difference” 

Do B:Gaal_2 
Return 

Case Xrel2opt = 3 

Nrelate = ’’Developmental Age” 
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Do B:Goal_2 
Return 

Cose Xrel2opt “ 4 

.Nrelate - ’’Disease Process” 

Da B : Goal_2 
Return 

Case XrelBapt “ 5 
0 17,14 Get Reloth; 

Piet ” ! XXXXXXXXXXXXXXXXXXXXXXXX” 
Read 

Nrelate • Reloth 
Do B:Goal_2 
Return 

Case Xrel2opt = B 

Nrelate - ’’Foreign Language” 

Do B:Goal_2 
Return 

Case Xrel2apt = 7 

Nrelate - ’’Mental Capacity” 

Do B : Gaal_2 
Return 

Case Xrel2apt - B 

Nrelate = ’’Sedation” 

Do B:Gaal_2 
Return 

Case Xrel2opt = 3 

Nrelate = ’’Surgical Procedure” 

Do B : Goal_2 
Return 

Case Xrel2opt = 10 

Nrelate “ ’’Treatment Regime” 

Do B:Gaal_2 
Return 

Endcase 

Release XrelBopt 
Enddo 
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** * * GOAL 2 . PRG *****»***********»************-************ 



* Author: 

* Date: 

* Screen Generated By : 

* 

* Purpose: 

* 

•* 

* 

* Input Files Used: 

* Output Files Used: 

* Calling Routine: 

* Routine Called: 

* Modification Date: 



Gary R. Harmeyer LCDR NC USN 
23 December 1985 
The Software Bottling Company 
Of New York, cl985 
Provides a menu for the nurse to 
select a patient goal for a pa- 
tient with a nursing diagnosis of 
communication, impaired: verbal. 
Goal_2.Scr and Procfile.Prg 
None 

Relate_2 . Prg 

Norder2A, Norder2B or Norder2C.Prg 
3 February 1886 



m 



* -- Screen Input Program For Goal_2 — 

* 



Do Setup 
Public Xgoa2opt 



Do While .T. 



* — Screen Display A:Goal_2.Scr — 

Set Color To W+/B,W+/B 
Clear 

?? Flash* ”S . A : Goal_2 . Scr/ ” 

Set Color To W+/B.W+/B 
Xgoa2opt - 1 
Do Headings 

@ 22,67 Get Xgoa2opt Piet ”3” Range 1,7 
Read 



* — Allows nurse to select specific goal attainable 
m — by this patient -- 



Do Case 

Case Xgoa2opt “ 1 

Ngoal “ ’’Communicates Needs Through Words” 

Do B:Norder2A 
Return 

Case Xgoa2opt - 2 

Ngoal = ’’Comm Needs Through Mechanical Tools” 

Do B:Norder2A 

Return 
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Case Xgoa2opt - 3 

Ngaal - ’’Demos Skills to Achieve Goals” 

Do B:Norder2C 
Return 

Case Xgoa2opt - 4 
G 19,21 Get Goaoth; 

Piet ” ! XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX” 
Read 

Ngoal - Goaoth 
Do B:Norder2A 
Return 

Case Xgoa2opt ” 5 

Ngoal - ’’Reports Less Anxiety” 

Do B:Norder2B 
Return 

Case Xgoa2opt - 6 

Ngoal = ’’Reports Less Fear” 

Do B:Norder2B 
Return 

Case Xgoa2opt • 7 

Ngoal * ’’Reports Less Stress” 

Do B:Norder2B 
Return 

Endcase 

Release Xgoa2opt 
Enddo 
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